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Tüo 4 íi* { í> f] , 4Xi' 

O^L Wf: 0 ? X a^«y~AR0MT*í)íi 7»'\ 

fiÀètxTL'5 ltL'5) r 

0MA7ÍIÍ, JL-i IJ7>, 79'iV/t-, 
+'* 7 '>T 7 >#X’í) -5 £>K 7 

U “Xl±£A'(i4t' u TJ^o^lztfÊbX 
^4'i' 0 TvilXÍ 5 , IfÈírM^X^iÕ 
£ Li:*', â £ TfÈ L 4 1 ' „ i±75 4' 4 V' 

©ty-A^^L üz ttz Lir 0 Z i, b X*(i 

tz i^-y 7 h *** 0 , ^^-tiXL' 

rt^li&S&WJfêA^froTi'*: 0 . '<*y 

7v>tZ^^í>oÍ: 0 , ^ R JLA''T R A S H 
MAN (£-r h JLiJ^ít LX47A'4il^ v F-y 
h ^-^-4í>i)'49 0 tz, 

«X*f 0 7 a/x 0 ) tíoXOfcUX, 7 


4l' 0 ) _hSPtZ(i7tí^ > AHt^X L'XFIRE,1i 
7>C4oXL'5 0 í *^3íl3#CO^ÍÊÉ#«Ji 
SP 4- BE n li t L tz fc«íítHxlíl.'V'X'L J; 
■7 o ffelzli-fnf fe®Sl' & C0* < 4l.'«X*^ ^"B 
(i^íOiz^JO í>lixè^^tü^ 0 t, Aln 
X)* £ *' li b ti i> <T> X\ Í5J -f L' i: ÍI 0 [È] < 4: 
Hcoü;— A ? , fO^-A7"P“ h 4- 
w>?oX < ilirf òc â*«(ifc-5fêõ7t, 
0 3&«4».v*'A» 4: % Have a 

nice day. £ Ho X 7°U — h ^#17 % £ «t 1 lz 
Ào X L á o ÍZ 0 B^B li B^IZÜ§?> B 
^^iz^a * X'li Nice 4 B -T X' L izc, 



4-81*4 0*' L«S*lzjl$* Bifo *ò* 
ò 7 - 7 > ^*'3K*?ti 4 L < 4 b X £ 
izirz^X-á?% 0 ^^B* ? *'0X'^ffltz^^, 
lio^X7i:$'L'o ítcoüco^lzli. 7L7-> 
i4 7if7é t '.'blíi'OÍ oTL'4 0 Z 4t 
A)« 7 -f f'7 ^ è 4: lz x Z4t*'btVICto 
í aoXiz õ 4:® õ o 

Xlí A? LLvJRfr ir ò t * 
n * { 4: 1 Z'?X'| L i: 
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L' 

COiiO, 

-^7X96$t, 

107IB, 

>T4 >¥-^7^31«í, fêí>7U-& 350A, 

a— Xl** u > t'7^3-7->XfA^fflo 

u-xjc i) -r *%&&•#* 


? v.' í Lí:» 

th 7 >+ > rrfÉJ$s t *8* a-t K—;ux£ 

‘V 7 litfcjíí* líífoT^I l í: 0 4f UA^co 
l|tí £ t — ~f> 3 7 I 1 U-— X CO A # s 
UÍÍ*^7ASlj(7)HAM0ICAPí7)|t#* í |^l- 

AX*'>-f ÍOA* 7 T't 0 tfi i :tl^7i' 

^ B 7 > t" a — :£ ftollf * - £ TlIíA^^ 

Wa>aiíSKtilÈ#íOiEiií iüi-Êfc^aMzüfe 


5 ^ 230 ÍB) *o A S^BIM-lOT(&**.*«. 
â * T'C: <7) 0 X UA*'<7) J: 7 (" * 7 ’J 

tBtít**«ofco Hí^ 3 *y h 0 *P 0 / 


^*<7)âtíW»^^L£D4'AA SB 4 0 2§ 
®X tK —>y^v . •37 1' u — xliífl 

ffl * «Bi»##T-M 3 * A o ít í:=it^ 
ft (7) 3 -y h V ><7) Pb) [I tf -y X4' 3 "j hU-7 

£ Lttf lí:: t7>Aèl±s *10*ê4— 
a^^cgll, %k • #ir¥2[õ]ffi?n, mi 


li7 <^f£ 

4 0*#í::(iMi234®ítf>#ÍJQ o 

t, a "j h®íif%T"*nííttT' 
t #jjp T* § , “ a -y h x -f X l 3 £ ^fc^HR 

fcltfjl-. e l%l±<r)t- 


*è*SB 7 ■ v ij—AU*S**« 

7Í K—7PZI > t°aL -^rVIC-lOOli X £ -y X 
lí -7 • V IJ -XI-PH>E* 0 

Zbb fcfMF< 

NAMEs FLEET, CLASSs HANDICAP(7)ÍT^ 


< jR£$ n xe-xv ciyiíhti'! lí:», 

''^frlílT J: 7 Lf^ofrti^ffiLfrí: 

ü < tt, WitíJtoIC^Ií IAM® 
ífs i>JU—ír>—— 7CD L- X h x > 
^l, ^-f-f, iKiJãt£i:if7-t 7 ^?(z 


6±4'#í)p«i±^±^wês [w)0#, í^rnx 

U — h <7) ® 7 0 

A A'A,[±Af?á (í b t£ 5 i cO3faB0 . 
iSflt, -OT* A 0 (-[**>■** b L < ASM* 
l3"b'7LtL t'—?- e LA' L^l^íi-^ < A' <b -OT 

#íjp^7U-> 

£ * WleSi JL 

ifeèlitfjLAAXyVs X * 

*>7A ;#Jit^^tA> As As I»ÍT 

*AnAmco5iJs a- Kâ £ i:lo ±t K z> «c 

*'^00 8 : 00 X*yA-X i-TI > A 
7-7 C*ifí4fl)*áEllTP Jtu j: u-x 
(± i*l*íí 3 íx A c f£2u-x<í: 

SUfXs 7 x x»J#ínft li-f^T© 7 *-f >*- 


jX^tz fcttA* L iv 0 =i > tfzL — ^coiiAli^ 
AèíAà L57T íí)-it taíF- 
7UXX V 7 17)3Ü â^è"As zcor^s ;H 
Jif^^iTs tt*Jlla-y hM^roüí&irlt** 

L < llãt ^rífPiJt^SBSs ffi 

Scx^-'7£0^;i!;¥—KAfÃloT Aâ L í: 0 
r t &/?'< u — xt:#í]p LT*/:i'í:So A 
^í7)ÜlZ t#ip LTL'f;fz < s -e-LT^-X 
>^'t|í^é*'L, íí)Aè^^7X 

<MltAL' 0 -f L T iSltt L T [í^ê^OX 

hí-ItllTíJll t*\ zti 

h' h t 3í K — K — VUí7) 

=1 > t“ ^ ^ 4- ett L'C(7)X^~ i y-l'^> h 

»7'ff7^%ATi'ltj» t»-5X<íí 



Aètl^KLs #^7P“£7 )|í[:ií:A[h1í0^ 
n L í:„ 
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HUHIÍJ, 4-t TEáf Ki)^KT-ê í: BASIC 


“C-êttfrttJfLtt < T fc h (iXT*+ 

frX-Tteo 

íatu-jfciíc, m a oítiox< 

T*'(btt)í L4 < T t» IU'(0T*ÍÍ4^<7)7;:^ 
7/T? j 

* IX, *03 J: òíí^n^TAÍ-f^oX* 

í Lfc 0 


100 REM PR0RFW1 N0.1 

110 P“0 : B*0 : C"0 : D“0 : E“0 

120 Pfi»100:PB*130:PC-280:PD*300 : PE*430 

130 INPUT"^a3tj iVj3'T';X 

ué input"%* aariv 

150 IF X-l THEN fl-P+PfWY 
160 IF X*2 THEN B-S+PBPY 
170 IF X*3 THEN C-C+PCTY 
180 IF X-4 THEN D*D+PD*Y 
190 IF X*5 THEN E*E+PE«Y 
200 IF X—1 THEN 30TO220 
210 00TO130 
220 T*fl+B+C+D+E 

230 pRiNrwrr tw 

240 PRINT 
250 PRINT"fia B ;n 
260 PRINT"S*"JB 
270 PRINT"C 3 "íC 
280 PRINT"D="; D 
290 PRINT"E*";E 

380 PRINT"-" 

313 PRINT"T'W=";T 
320 ENB 


coí£4t£, -r ^ aô ÍZ ^ ^ 


RERBY. 


n 4'7°P?'7A%L t\^r> X 


^ÍL/Cc^ülis bò'J>Ln&K7°ny7 

a^ct* r<r>x\ Lofr ^íxaxmlt 


T$'»\ 


100 REM PRQGRAM NO.2 
110 BIM fU15; 

120 FOR 1*0 TO 15 
130 PKI)*I#2 
140 NEXT I 
150 REM 

160 FOR 1^0 TO 15 
170 PRINT Aí I> 


180 NÊX 
190 END 

RÊfiPV. 


0 

2 

4 

6 

B 

10 

12 

14 

16 

18 

20 

22 

24 

26 

28 

30 



êt, —faZCDDMt *'A( I ) ^trtí, f"T 

J: lí v 0 


^botffiC 'JRt' 

7P^'"7/x$: 

fPUíLjrd 


HÍíIãlCOSÍâlZf^o f:Xpy7i (No.9) 

i'lÜl,XT^'o :^q^7AXIí, — B 
«•ê-l+titU^COTr^v ZXl/ífc, BÍífc^T, 

m ° a n<n mn tz ^it £ ta $■ 4 it n tf i' tt í -e- 


tzòt>\ z co y n ^ A £ # á li z> Xi x\ 
fSãcO&j^ 6 O £ & < 4 o tz h Z ò L tz b L' 
9 Jí>'£ í Lfc 0 ít 

4Uif& a a pCD&à í io^204 b t'1'X L i ò*Á 
100, 200 1 4 o X < £ Z 7“ □ A ^f^-5 4' 

tíTtffiffl-rr. ?x, 

Ã.jAAT L í L'S L tzt\ 

Z ZT'#rLl'BASIC<7)ífr^(CMLT b 
bl'íto Zftfí, DIMt Hftítl%^P^T'-r o 

úmi-, w/p^7AfrA*L-rníTL 


Z (7) DIMli v l55!J<7>l:i-4^í:Dftfn , A 

( I) 4t'«J: ò i:Sftíff)ft^o:xA4 
co £ B5£U Z tW S r o 
ffiílIt^íífeliíSAfíZfcoT, 

4 Üfr<nmi'Z t tJSi'í T*>'\ áóSUIIL 
< # * 4 L' T\ 'M X ò 4 314- 9(0) *ta (z ftft 

LXT?C' c 



A-XLto ZftT'(Íftí> n > £í£o 
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rft<b<7>a*ESiJT*£*>{::, £«*'*>* 

#iz, <f>, 1, 2, 3, •*■, 7IT'í7>#-§-£ftlt 

x, znbm^Mí *JizA£i'9£ÍL£ttlt 

Hfc, *lt rconcD^í^fsM^An^ 

:^ 5 T'êlí„ Zí7)j: 9 Kbnmmizt 


tt^Zt tz=t U , A (7)12# 

swíii^x tuõEgfclzAU 

ât s C<7>J: 9 A*'0e5lJ 

X£>£ 7 t li AOOfélZ*'-? “ 
tfffr < -I £ ÍZ J; o THfi?X' ê , 


£tí:£i:J:‘J, x izlÊ5ij a otíí^iz 


-r;7 - *;u+mí- n 


J&ãtíVUTl, i 9 0 
TCOi; 9 4íic7>ftâ: ‘J 


* CO 4' O H (T) + í Z # A'nT l'%&^(í H(7)# 
%7F L í To 


XoTL^ftiWêtti^í i ; ÍTo 

?X, 1 Z1 £Xmmxêtzj£3:$ A,te, X 



i 


DIMTTo f LT, -fuyZth. No.. 2 


TílX'lÍ, SÈ5ÍJ A { A £ 1'9 £*lCOffil'/,: C0.Í 9 47°P A£f£-?X<&Í Lfco 


t, 3C#-^20X\ DIMCOfêtZ A (15) t L'9fÜ 
a***y*T tíK Ztntm\\<7>&tl& A £ U 
9^+LtZLX, $i<7>$[líO~15í T<7>16-|@fÉ 

í) L &, Z1 $* 

na mti nas),B<20) 

RERDV. 

£t 5t, AÜL^Wo^T, ffi<7)#-^ 
*< 0 ~ 15 í X*<D se?lj , B £ 1'9 £*1^-71' 
XU<nm^tf0~20 i T*<7>Se5Ü£fF5 :£C 

4' U í To 

DIM A(15), B(20) IZ ct f J EWt^fcHé- 


S5?|J) <r>$ :Xco*I (zff)‘8<r)Z£** m%£ 
L't'ÍT) fZ82£l'9fil£Aft£lZlÍ£'9T 
£ <7> X T L J: 9 4 0 

100 Rí0)*82 : R(1>=82 : R(2)=82 : R(3)=82 
110 R<4)=82 : R(5)=62 : fi(Ê>=82 : FK7)=82 
120 Rí8)5=82 : Rí9)=82 : R(10>=82 : Rí 119*82 
130 Rí12)=82:Rí13>=82:R<14>=82:ftí13)*02 

RERDV. 

bhò^ztix-bfàtfrcttf, jSroftj&noo 

^lOOOÍZ 4 o fz% £Ti £T 9 T %<7>X L* 9 ? 

100 i=i0 
110 X=R(I) 

RERDV. 

£ T * £ , M X iz li §e?ij A co 10# g íOM* 4 



100 1=3 
110 X=RCI> 

RERDV. 

ttíl:, ^tx iziig£5ij Aco 3#0cotfl* { 

A f J ÍT„ T*T*'^ 

100 ROR l=e TO 15 
110 Rí I)=82 
120 NEXT I 


ít, mwzm 9 iz-n^n^sí, II 
mx-ê fz z t *nxii, aco i 

2 # i (7>?i d &íê \ An * iz ií £' 9 t £ x 

L n é\ 

Rí12)*10 


RERDV. 


t Ti T £ (Z4 U, B65U A COíÉ:X CO íi IZ 82 £ 
l'9ÍfcíI£Aft£ 7 t ifXè íTo 
í fz, 

100 X«0 

110 FOR 1=0 TO 15 
120 X"X+flíI) 

130 NEXT I 


100 REM 

110 REM PR DG R Rd NO.3 
120 REN 

130 REM" tl+37 Tj ) W9 3*09'36" 

140 REM 

130 N=10:REM" <J3lfAl " 

160 DIM PRÍN) : REM" VVtt j 13D7 " 

170 DIM SEíN) :REM" VaiFA"") ) W3T> " 

180 DIM TSíN) • REM" J V)?T'9"fl " 

190 REM 

200 REM" L>a3t j DDO ) 3Í0Í 11 
210 REM 

220 FOR 1=1 TO N 

230 RERD R-REM" f"~9 9 3£, " 

240 PRí I)=R: REM" Z1"'j > " 

250 NEXT I 
260 REM 

270 REM" l'33t> m? " 

280 REM 

290 DRTR 100,120,130,140,160 
300 DRTR 180,220,230,300,400 
310 REM 

320 REM" Í"W' :JÍ>'Ja9 " 

330 REM 

340 INPUT"U3’)tj rt*W*5"JX 

350 IF X=0 THEN 390 : REM" 1191)39 T7'J " 

360 INPUT"7l'5 339"JV 

370 SEÍX)=SEÍX)+V:REM" 7ví> 337 } 9t9 " 

380 OOTO340 
390 REM 

400 REM" jilW " 

410 REM 

420 FOR 1=1 TO N 

430 TS(I)«SEíI)*PlííI):REM" 937t>V''>i 'AVWm " 
440 NEXT 1 
450 T*0 

460 FOR 3=1 TO N 
470 T=T+TS(I) 

480 NEXT I 
490 REM 

500 REM" V)JT' ur *-(■ 11 
310 REM 

520 PRINT”-" 

330 PRINT" 7')7T V l/í* -f " 

340 PRINT”-" 

530 PRINT”*# uaiCl/V'!! y}7Y ##" 

560 PRINT 

370 FOR 1=1 TO N 

580 PRINT"N0,";l; 

390 PRINT"W?T'";TS(I) 

600 NEXT I 

610 PRINT"-" 

620 PRINT"## vm* TIK #*" 

630 PRINT 

640 PRINT "0" 77■í=";T 
650 END 


A CO 12# S l- 10 £ L' 9 íâ RERDV, 


RERDV. 


^AíJiToiÊC, A CO 12# IIZÀoXl'-5 

fÈ% x t L'9 ^^IZAn^^-^íi, 


7'07't7A(í, Hlff L IZ < l-lí, P 7 
> h SrttlTX^áT?^, Sflff L ^T < 4 o 


X*fií12) 


Xl' 5 Z£ í:®L'íTo 
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VIC-1010 


VIC-1110 

8KRAM*-h ') "Ji> 



3 «af S tzsh<P> '>X T AÍÊ 
h\VIC-10017)7* g-.x 7 ^<y 
* 'iz tz r 4 y 7 h 22 e > (?)x y -7 

3*77-6 VIC-1110,1111, 

1112, 1210, 121K1211M), 1213 £ fcftfíffl 

itkk 6 m £ V<7) ' < -y 7 £ [SI #í izgifêt òzt 
VTò £t e 


VIC-1011A 


RS232C7 7'X7-‘*- I* i) -/ií 
(7- $ ■fA'-7-f -?) 

x—tf—tf- Hcaa-fSC >í-i IJ, RS 


232C7- i > 7-7^ ^ x£ 

b^tz&mm «r fé t * ij j i- a 

1tISS§I£fêoT. it< 

SMlf:3Xt^-7->:9 L<7> 3 $ ^ x y — 
X 3 ^TSÍt, 



4Ê3ÊIffl / í 'J - • ••/ 7 0 8K^M h $ 

ÍX T í> >), ftk7 -t U - £ ff ffl L ta ^ *i 
£\VIC-1001<f>x--»f-.xiJ7<3583'-í'í' K) 

11775'< 4 f-7>x-+T-.x gr 

> & *J í -to 7t'J— x7Xa'^v3>./< 

xuücaaat vic-ioiox 7 •> 








16KRAM*- h 1 ; 



MÍ&HJ ^t 1 ! y 7 0 16K ■*' h jSfjtÊai* $ 
íir jb* 0, ffeíoíÊãsy í ') - £t*ffi l 4 u m 


VIC-1Q11B 

RS232C7’ 7'7’7 —-A— I ‘J -y i? 

(* u X h *IU— 7'9 -f X) 

x—tf—tf- Mcfta-fôC. fcCi '), RS 


tV, VIC-10017)-x —-tf-.x IJ T (3583'<y h ) 
£&f>i±T\ 19967^ < ^ |-í)a-f—i O T 
>4* t lâ'í' 0 XíiJ-.x7x^’/y 3 >*A' 
*£#\ VIC-1010x7X/Cy 
3 > • tyi“iW3Í''7 9 — tZfgfrc» 


232C?7 P > h 7U—7°*7 4 “7*• T > 7 - 7 x 
'í 9, th^tZ g-ítíSI® ( t P 7 -í 7'£' Ü ) 7-fé 
fct»rfé!-£>) à1\ 


COLOfJR 

COMPUTER 



VIÇ- 210 

3KRAMfj — h 'J -yp 



MSIffiy íiJ 7 s 3K^M 
X ís '1, fÈ7)4£$gy ÍIJ-Í L i* ^1#^, 

VIC-10017>x--tf- * x ij 7 ( 3583'*^ V ) l 
hb^tX, 6655><-f h«JL—tf- • x ij Th 
ti > )£'t a 7Í J -in^Cy a >*^<X 
U iüfleaai-4 â £íi V1C-1010X 7 

>x s > * ^y*-;w<7)3^7 7"icíiMo 







7 ,_ / í_. x ^^ / í >í r'_ 3kRAM#^T7- M; -y> 



S'4 k V* IJ A - -> 3 > (tàflfífc) 7?7í 7?* 

3 ^ > K, ■tf 7 > K • 3-?> K^íOffeS* í>7 
BASíCM‘jM^' y 7 (3KRAMftè) 0 x 7 xw 

> -> s > • /<Xif:f'iVIC-1010(cttao 'W 

u 7" • n-?> K$■ >J 0 — X-tíUf, ^9>£ £ 
3KRAM^“-y 7 t LTttfflBf. 

3KRAMÍ: LcOVIC-1211 • x7 X 

'^y X (i, VIC-1010 U4SaL, *ÍIS RAM 

'*■/ 7íílJíjtá:>m. 

ÜÍD?#Lâ BASIC =?^>K 0 HIRES, 
FLOT, BOX, CIRCLE, SETC, SOUND, 
MUSIC, TEMPO, PIANO, LOCATE, 
CHAR, PDL, LIGHT, JOY, RELEACE 
ta t\ 7 T > 7 *> 3 > * - £- 12M7) n v > K 
í- T•* t y tx~-t f-?}<'£m-ÒZtb fJflÉ)o 
z> y h n-/t, • 7 t > 7 v 3 X ^i£l/jlC 
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I VIC-1212 

XdXXv-X-xT K**-h '} "Ji> 



BASIC<7>7*u 77 5 >7, 7n/7At7)f''< 
y?£±miZthmit+Ò “TOOLKIT” ?) x 
í K — /ufifio 70/7 5 > 7 ti í V t T f '<v 9 
(xfí BASIC KÍJÊÍB. 

RENUMBER, MERGE, FIND, CHANGE, 
DELETE, AUTO, TRACE, STEP, DUMP, 
HELPíft* 0 7 r>7 7 Kft 

24íi<x>3K£7-»M > (o.— 

i - i í, »ffê) o 3 > Y o ~)V’ 

7 T > 7 -> 3 > £ iiá}j{\ 0 JL? Z'<> '> 3 > ’ 

^Xá^íiVIC-lOlOizfêM. 


; VIC-1213 

vic-iooiTfio«tWiã&7D x/aíoM, rx< 
- X £ ^iÜU «Wtt - á -y - A * •/ [■ Cf, 
T;“ ,-R— K G X 7 ^ > * 7 > *f— 7 • 3 -V 
J > K £ h z. 1lz J: O T, CPUx>$j è £ 

> f- D — ^ f' ^ , -sXT U&7 7 4 !^X'% 

' í£\ @CPU«x.t ® 

p ^xy, Xo XXA7f-n, 7^9 v 9 
•t< -f > £ j$ J: Í7 y -E ') co [7]'# £ U [B £ £ T" 

S iT* 


VIC-1311/’ ■ 


3 -f ^ 7" < *y ^ ^ í K JU 

L < f è 4*y—;v„ 



VIC-1510 

SfflÍT-íií-ííz?—X-X ji*#) 

O > /RX V h ■ h'r"T * A >7-y h * 7, £ — X—|*] 
14T>^ 0 ^-£--X— 7)VX\ VIC-1001 
77 7 — t^t-A >9—7 j-A *í-#Ü9l. 



VIC-1515 

?77-f y£*XO >9 



K "j h * x> V >1 ■•/ 9 X • A > ' * 9 h * 7 'J > 9 o 

sotffo ®íxe- K30'/-/í'>o vic-loolx) 6 

777 1 y 7 X'T, 

7977) 7 f\n -7 è * t. to^tpij?, m 

2 X~D 7777/1,* 77 X -í y 7 

VIC-1001 x 0 7tV • '<X £ *fí 
VIC-1540 x 1 J7VP •' < X U ftS 7 —7)VX~ íí $£» 

VIC-153Õ “ 


~ft -te -y h * K ~7 "f 7 



WW, «ÍJIÔOK^M MC-30fêfflH$>. iie« 


)jxKt$3 7 Y-)V}j& (500rK—) 0 VIC-1001 
7)7 7 -v h • A > 9—7 ±A X (C-fífeto 


VIC-1540 

~»Af)lr‘7Q "J t‘— xy* KoTX 

-f / 7 ') y i 7 F • X D -y £• fX9X\ 
VIC-1001 íO / -t «J £-£/£„ 'hSí:^ 

G, 170K><^ f. i77'-9^^^ 0 k‘£ 
ix r T ^ > LTÍtlHT ^, íty K-X 

(7jt-<TM0 í JÍ7r'- ^ Süríl^T^ 4 J; 7 (- 

£* 0 ÍTo féfflrW XX y h : 5.25 A 
Í;--7D.yt“(y7h'tn-) 0 ICit 
'#ttl75K'"' -í 1/f y K f ■( 1 

IJ -. x > h IJ — : 144 /T 1 -X X y h 0 -b y 
?-/ h x y y : 17 — 21* h/-tx 9 — 

: 256* h x y 9 \ 35* 7oy^ : 683* 
VIC-1001 v iJT/p- ^xi:fH4y-x';uTX 
A\s9 McttiBt. 



VIC-1801 


'> y X X * 7-X'h' y X 



» ■* * * * G 


VICfUBASIC'P^X"n 77^77 y h * BA¬ 
SIC X:s">[7 fyfrtlfz X o Xõ AC 

Itiil|fii‘X>ÍS'T !7 L X f7 -j T £ —í*ÍT £ íf o T í'í 
itíiBASICíO^^^X X--C5 ât* 


VIC-1601— 


X'-A *— 6 0 7V 

«t *) c «t o $ L < íííi x- a #íi 0 
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r VIC ! 4 j T\ VIC-1001í7)->XxARAMÍr^SL $ l fzf)\ 

L í To - (T) l J 7. h t ^íi 0 s t)Í-?<7)'/ 
A • s<2-7 < —Jls K(1!t#M(-^-£ír PET/CBMíí J: t/ VIC (DM 
i&%) ¥*'í'tV'>Xftl&l.tzb(nX-t 0 VIC (iü^v BASIC ROM 
8K„ KERNAL (OS) ROM 8K t L X l' $ t * { , C (D U 7 h *' b 
ct n {I. f¥L < 1'ÃÍÍ BASIC^-^XiSCOOO- $E 4 FF í 
X(7)9Kfè, KERNAL^-^ti $E500~FFFF í T'£7) 7K|| ír 4ot 
l'ít„ “ CDROM^-^^UT. h íi, BASIC < 7 V £ fcfl&fJtL 

S^T*fc< 0 í:í.'A, ít, viccort^*^ 

u-'>a > * '>*rA£fijffl LT U T JH/O^^td^L f: 

u ± i 1 to 

(>È*) : X CD VIC ROM/U —■ *J X h (±^L —1f —II VIC ÚO 

LXV'r:íí< Jt LTílSfe-Tó icoxTe 

*>'(ÍÍ$ÍJEL * ROM^-^&Zrfêffl 

13 4' 3 t £ l±, - Ê -^XÈtlS £ *t f: £> í: 13 4' ? í» J: ò (3 £ 11 tf> L 
3 to $IJ(3 «t oT, Z<7) IJ 7 h I3M-T *F*3^X #^^t30UXí7)- 
1Fb1I±v 


VIC-1001 ROM Qrganisation 


C000-C09B 
C00C-C051 
C052-C07F 
C080-C09D 
C09E-C19O 
C19E-C3S9 
C38R-C3B7 
C3B8-C3FR 
C3FB-C407 
C408-C434 
C435-C436 
C437—C468 
C469-C473 
C474-C47F 
C480—C49B 
C49C-C532 
C533-C55F 
C566—C573 
C579-C612 
C613-C641 
C642'-C650 
C65E-C68D 
C6SE-C69B 
CS9C-C741 
Ci 7 42—Ü7EC 
C7ED-C81B 
C81D-CS2B 
C32C—C856 
C857-C870 


ROM contro I ^ectors 

keyword act i on y*ectors 

Func+ion yectors 

Op&erà-tor yectors 

T ab te o-F BflS IC keywords 

BASIC messagesrfios-fc ly er r or wess-ages- 

Se ar ch stack -for FOR or GÜSUS acti ui+y 

Open up cpace in memory 

T e?t: s+ack too deer : ' 

Check i lab le memor-y 
r OUT OF flEMÜRV ' 

Er ror r outine 
Break en+ry 
Print RERDV 
Ready -for B^sic 

Ff an d le BRSIC li ne from Ueybr-d 

Rebuild châining of BASIC tokens 
Receiue tine froí» kevbord 
Chance keywiords +o BRSIC fokens 
F i nd BRSIC L i ne 
Ferforni NEW 
Per form CLP 

R os et BASIC &y. e cu + i on +o st ar - o+- r r o gr am 
Perforrn LIST 
Perform FuR 

E xec 'j+e BR'? IC ?+a.+ errién + 

F&rform RÊsT UR E 
Fer form STOF and E ND 
Per-Form CONT 
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C87Í-C382 
CSS3-C89F 
C3R0-C3D1 
CS02-CSF7 
C8F3-C905 


Perfor Til RUN 
Psrform 00SUB 
PerForm GOTO 
Per form RE T UR' N 
Perform DA Th 


0996-0908 

C909-C927 

C928-C93A 

C93B-C94R 

C94B-C96R 

C36B—C96R 

C9R5-CA1C 

CR1D-CR2B 

CH2C-CR7F 

CR80-CR85 

CA86-CR9F 

CRR0-CB1D 


Scan for next BASIC s+aternent 
Scan for ne:<t BÃSIÍl me 
Perform IF.r and perhaps: 

Perform REM-i,e* skip rest of line 
Perform OH 

Get fixed - point number from BRSIC 
Perform LET 

Rdd RSCII digit to ac cu mu later #1 
Continue to perform LET 
Perform PRINT# 

Perform CND 
Perform PRINT 


CBIE-CB3R 

CB3B-CB4C 

CB4D-CB7R 

CB7B-CBR4 

CBR5-~CBBE 

CBBF-CBF8 

CBF9-CC05 

CC 0S-CCFB 

CCFC-CD1C 

CD1E—CD77 

CO78-CD90 

CD9E-CER7 

OERS—CEF0 

CEF1-CEF6 

CEF7-CEF9 

CEFR-CEFD 

CEFF-CF07 

CF08-CF8C 

CF0D-CFÍ 3 

CF 14-CF27 

CF28-CFR6 

CFA7-CFE5 

CFE6-CFE8 

CFE9-D015 

D0I6-D030 

O081-O08R 

D0SB-D112 

Dl 13-01IC 

□ 110—D193 

D194-D1R4 

D1R5-D1B1 

01B2-D1DQ 

DíÜ1-D244 
0245-0247 
D248-Ü34B 
D34C-D37C 
D37D-D390 
D391-D390 
D39E-D3A5 
D3RS-D3B2 
D3B3-D3E0 
D3E1-03F3 
03F4—D464 
0465-0474 
□475—0 4*36 
0487-D4F3 
04F4-D525 


Print string stríng from memory 
Print sing le format character 
Hand le bad input data 
Perform GET 
Perform INPUT# 

Perform INPUT 

Prompt and receive m^u+ 

Perform RE RD 

Messages: EXT RR IGNORE D * REDO FROM STRRT 

Perform NEXT 

Checks data. tyre prints TVPE MI SMRTCH 
Evaluate expression 
Constant -PI 

Em a lua+e e xpr es i on m.j i t h i n par enthes i s 
Check r ight papentlhesis 
Check left pepenthesis v 
ChecU: com ma 

Print SYNTRX ERROR and exit 

Set up function for future evatuation 

Check range 

S e ar c h f or u ar i ab l e n am e 
Identífy and et ur function reference 
Perform OR 
Perform RND 

Perform corripar isons^ string or numer 
Perform DIM 

Se ar ch for uamab Le location 
Check if ASCII character alphatoetic 
C reate new BRSIC Mar-i atole 
flrray rointer subroutine 
32768 ir fioating b i nar y 

Evalua+e expression for positiue ín+eger 
Find or create array 
T BRD SUB SCRI PT r 

r ILLEGRL ÕUANTITV■* 

Compute array subscript size 
Perform FRE 

Conoerts f i xed—po i nt to f 1 oaf i ng —po i rit 

Perform PGS 

Check direct 

Perform DEF 

C h e c k F N x sy n t a: < 

Evaluate FHx 

Perform STRÍ 

Ca leu l ate s+r i ng «sector 

Scan and set up string 

Subroutine bui ld string uector 


D526-D5BC 
D5BD—0605 

0606—06 L 

DS3D—0679 

D67R—D6R2 

06R3-06DR 

D6DB—D6EB 

D6EC-D6FF 

D700-D72B 

072C-072C 

0737-0760 

D761—D 77B 

D77C-07S1 

O782-07SR 

D7SB-D79R 

D796-D7RC 

D7RD—07ER 

D7EB-D7F6 

D7F7-O80C 

DS0O-D323 

D824-D82C 

D82D-0S4S 

D849-084F 

0850-0852 

DS53-0869 

D862-0946 

D947-097D 

D97E-D982 

D983-D9BB 

D9BC-D9E3 

D9ER-DR2R 

DR2B-DR58 

DR59-DRBB 

DfiSC-DRBb 

□RB7-DRD3 

0RD4-DRE1 

DRE2-DRF8 

DRF9-DRFD 

ORFE-DB0Ê 

0812-DBfll 

DBR2-DBC6 

ÜBC7-DBFB 

OBFC-DC0B 

DC0C-OC1R 

DC1B-DC2R 

DC2B-DC38 

DC39-DC57 

DC58-DC5R 

DC5B-DC9R 

DC9B-0CCB 

DCCC-DCF2 

DCF3-DD7D 

D07E-DDB2 

D0B3-DDC1 

DDC2 

ODC0-DDDC 
DDOO-DF15 
0F16-0F39 
DF3R-OF70 
□F71-0F7R 
DF7B-DFB3 
DFB4-0FBE 
OFBF-OFEC 
DFEO-E039 


Gartoage co l X ect i n s ubro'.i 1 1 n 

Check for most eligitole string 

Co l lect a string 

F*erf orm stri ng cncatenet ion 

Bui ld string into memòry 

D i ac ar d ui-^nant e«:i st r i ng 

C leen fhe j:í^s^cr ípt ^tr ing 

Performs LHRf 

Performs LEFTÍ 

F F e r■ f or■ m s RIU H T í 

Per for ms HIDí 

Pu l l str ing par“ aineters from stack 
Perform LEN 

rioue from str íng-mode to numeric-mode 

P er tor m RSC 

Input byte a raraiiieter 

Perform VfiL 

Get +mjo parameters for PÜKE and WRIT 
Conuer t. f Ioat í ng-po i r»t to f í xed-p r - T i n 
Perform PEEK 
Perform POKE 
Perform WRIT 

Rdd 0.5 to accurnulator#1 
Sutotract—from 
Perform 5UBSTRUCT 
Perform RDÜ 

Comp lement accurnu lator# 1 
Print 07ERFL0W snd exit 
Multiply a byte subroutine 
Function constants 
Perform L0G 

Perform mu 11i p lication 

Multiply a bit subroutine 

Load accurnu lator#2 from memory 

Test and adjust accurnu lator #1 and #2 

Hand le OMerf lou* and underf low 

Multiply by 10 

10 i n f lo at i ng b i n sr y 

0 i mi de by 10 

Perform d iv ide-by 

Loa.d accurnu lator #1 from memory 

Store accurnulator #1 into memorv 

Copy accurnu l ator #2 into accurnu lator #1 

Copy accurnulator #1 into accurnulator #2 

Round off accurnulator #1 

Compute SGN Ma. lue of accurnu lator #1 

Perform SGN 

Perform RBS 

Compare accurnulator #1 to memory 
C o n 1 »e r i -f l o at i n g—p o i n t + o f i e *:i —p o i n t 
Perform t^T 

ç t st r i ng to + l o a. 1 1 r ig—p o i n+ 

Get nem RSCII dígi+ 

Strmg conoersion constants 
Pr int IN r to l lomed by; 

Pr i r - it BHSIC 11 ne number 
Corj , , ert f loat to RSC I 1 
Constante for- numer íc con r j er s i on 
TI consfsrtts 
Per f orrn ‘r-Lt 
P f Q f- rn fi- 0 i m ^ r f vj n c + i c- p 
Perform negation 
Constants for string eualuation 
Perform EXP 




























E040-E053 

E056-E693 


Series eualufte 1 
Serias luate 2 


ERSD-ERftd C te si" screen Une 

ERR1-ERR9 Print to screen 


E094-E0F5 
E0FS-E126 
E12?“E152 
E153-E1Ê1 
El62—El64 
E16S-ElBft 


Perforro RHD 
?? Break point ?? 
Perform SVS 
Pertorw SRVE 
Perform VERIFV 
Perform LORD 


ERRR-ERB1 

ERB2-ERBE 

ERBF-EB1D 

EB1E-EBFF 

EC00-EC45 

EC46-EC5D 


3tore on screen 
Synch colour to char 
1nter r upt <IRÜ > 

Ç h £ r" t-í i ;! e V fcj O 31“’ d 

Set text mode 
Keyboar d vectors 


E1BB-E1C3 
E1C4-E1D0 
E1D1 E202 
E203-E20R 
E20B-E215 
E216-E260 
E261-E267 
E268-E2B0 
E2B1-E30R 
E30B-E377 
E378-E386 
E387-E3R3 
E3B4-E42S 
E429-E44E 
E44F’E45fl 
E45B-E466 
E467-E475 
E476-E49F 
E 4R0- E4R8 
E4R9-E4B1 
E4B2-E4BB 
E4BC-E4FF 


Perform OPEH 

Perform CLOSE 

Par ameters -for load/saoe 

Check clefau Xt paranieters 

Check for c croma 

Paraíneters for open/c tose 

Ferform COS 

Perform SIN 

Perform TRN 

Perform RTN 

Initialize 

CHRGET for zero paçje 
Initialize BRSIC 
Power up messages 
Vectors for $0300 
Initialize oectors 
Warift restart 
Proofra/n patch are a 
Serial output 'i' 

Serial output r &' 

Get serial input & c lock 
Proçjram patch are a 


EC5E-ED20 

E021-E02F 

ED30-ED5R 

ED5B-ED69 

ED6R-EDR2 

EDR3-EDE3 

EDE4-EDFC 

EDFD-EE13 

EEI4-EE1Ê 

EEÍ7-EE1B 

EE1C-EE43 


EEB7-EEBF 

EEC0-EEC4 

EEC5-EECD 

EECE-EEE3 


EEF6-EF03 

EF04-EF18 

EF19-EF83 

EF84-EF8C 

EF8D-EF95 

EF96-EFR2 

EFR3-EFED 


Keyboard maps 
Graphics/text entro 1 
Set graphics mo de 
Mrap IIP screen Une 
Shifted key matrix 
Control key matrix 
VIC chi p defauIts 
Screen line adds lou* 
Send 'TRLK r 
Send ■'LISTEM" 

Send contr l char 
Send to serial bus 
Timeout on serial 
Send listen SR 
Clear RTN 
Send ta lk SR 
Send serial deferred 
Send ^UNTRLK' 

Send ^UMLISTEN' 

Receiue from serial bus 
C lock line on 
C lock line off 
Delay 1 ms 
RS232 send <NMI> 


EFEE-F015 New RS232 byte serid 


E500-E504 
E505-E509 
E50R-E517 
E518-E54B 
E54C-E55E 
E55F-E580 
E581-E586 
E587-E5BR 
E5BB-E5C2 
E5C3-E5CE 
E5CF-E64E 
E64F-E6B7 
E6BG-E6C4 
E6C5-E6E9 
E6ER-E714 
E715-E72C 
E72D-E741 
E742-E8C2 
E3C3-E8D7 
E8D8-E8E7 
E8E8-ESF9 
E8FR-E911 
E912-E928 
E921-E92S 
E929-E974 
E975-E9ED 
E9EE-ER55 
ER56-ER7D 
ER7E-ER8C 


Set 6522 addresses 

Set Screen limits 

Track cursor ioc ation 

Initialize 1/0 

Normalize screen 

C lear screen 

Home cursor 

Set screen pointers 

Set 1/0 defauIts 

Set VIC chi p defauIts 

Input from keyboard 

Input from screen 

Quote mark test 

Set up screen print 

Rd u ance cur sor 

Retreat cursor 

Back into preuious tine 

Output to screen 

Go to next 1 1 ne 

Do 'RETURN r 

Check tine decreroent 

Check tine increroent 

Set colour code 

Co lour code tab te 

Code convers i on 

Scro 11 screen 

Open sp ace on screen 

Mooe screen line 

Set start-*of — tine 


F016-FQ26 

Error of ojui t 

F027-F035 

Compute bit count 

F036-F05R 

RS232 r ece i ve (. NMI > 

F05B-F09C 

Setup to receive 

F09D-F0R1 

Receiue pa ri ty error 

F0R2-F0R4 

Pecei f| e overrun error 

F9R5-F0R7 

Peceiv>e break error 

F0R8-F0BS 

Rec e i ve f r a;í>e ^' ro r 

F0B3-F0BB 

Bad deoice 

F0BC-F0ÊC 

File to RS232 

F0ED-F115 

to RS£32 buffer 

F116-F14E 

Input from RS232 buf te 

F14F-F15F 

Get from RS232 buffer 

F1150 — F173 

Check serial bus idle 

F174-F1E1 

Hessages 

F1E2-F1F4 

Prin+ if direct 

F1F5-F264 

Get .,, 

F205-F20D 

,.,from RS232 

F20E-F24F 

Input 

F250-F279 

Get# #- tape/seria1/RS23 

F27R-F28F 

Ulj tpi-jt i • • 

F290-F2C6 

-« * to tape 

F2C7-F30S 

Set input deu ice 

F309-F349 

Set output deuice 

F34R-F3CE 

C tose 

F3CF-F3D.E 

Find fi te 

F3ÜF-F3EE 

Set ti le ue. lues 

F3EF—F3F3 

Rbort a11 files 

F3F3-F409 

Restore default I/U 

F40R-F494 

Do f i le open írr^r 

F495-F4C6 

Send SR 
























































F4C7-F541 

F542—F646 

F647—F658 

FS59—F669 

F66R—F674 

F675—F727 

F72S-F733 

F734-F75F 

F760 - F766 

F767-F76F 

F770-F77D 

F77E-F7RE 

F7RF-F7E6 

F7E7-F84C 

F840—F853 

F854-F866 

F8Ê7-F889 

F8BR-F893 

F894—FSflfl 

F8RB-F866 

F8 B7 - F 8BF 

F8C0-F8E2 

F8E3-F3F3 

F8F4-F94R 

F94B-F95C 

F95D-F98P 

F98E~FRRC 

FftRO-FBDÍ 

FBD2-FBDR 

FBDB-FBE9 

FBER-FC05 

FC06-FC0R 

FC0B-FC94 

FC95-FCCE 

FCCF-FCF5 

FCF6 - FD07 

FD08-FDÍ0 

FDU-FD1R 

FD1B-FD2I 

FD22-FD3E 

FD3F-FD51 

FD52-FÜ8C 

FD8D-FDF0 

FDF1-FDF3 

FDF9-FE48 

FE49-FE4F 

FE50—FE56 

FE57-FES5 

FE66-FE6E 

FE6F-FE72 

FE73-FE81 

FE32-FE9Ü 

FE91-FER8 

FER9-FED1 

FED2-FEDD 

FEDE -FF 55 

FF56-FF5B 

FF5C-FF71 

FF72-FF89 

******** 

FF8R 

FF80 

FF90 


Open RS232 
L q ad pr o g r aii i 
'SERRCHING' 

Pr i nt ti le name 
' LORDI HG/ VERIFVING r 
Save pr o-iir am 
*SRVIHG ' 

Burvtp c lock 

Ge* ti me 

Set time 

Rction stop key 

Fi ie Er ror Messages 

F i nd any tape header 

Wmte tape header 

Get butter addresses 

Set butter start r end pointers 

Find specitic header 

Bump tape pointer 

'PRESS PLRV«..' 

Check cassette status 
^PRESS RECORRO-,,' 

Initíate tape read 
Initiate tap e write 
Common tape read/wri te 
Check tape stop 
Set timinof 
Reaud bits <IRQ> 

Store characters 

Reset pointer 

New t ape ch ar ac ter setup 

Tocjci Ie tape 

Data «Air i te 

Tape write CIRCO 

Leader urr i te < IRQ > 

Restore vectors 
S^t vector 
Kí 11 motor 

Check read/write pntr 
Bump read/write pntr 
Pomerup entry 
Check fl—rom 
Set k er na. 12 

Initia1ize system consts 
IRQ uectors 
Intiahze I/O re--is 
Save data na. 

Save ti le de* ai ls 
Get st^Ctus 
F 1 açi ST 
Set 11 ui eou1 

Read/s«et top ot me mor y 
Read/se* bottom ot memoru 
T es t ruem ory 1 oc a* i on 
NMI ínterrupt entry 
RE8ET/3T0P war-rrt start 
NMI RS232 sectijences 
Restor e & ex 1 1 
RS232 1 1 m 1 ng tab le 
Hain IRQ entry 

Jurnp Tah le ************** 
Restore o ld 1/0 uectors 
Read/se* uectors 
Centro l KERNRL messacies 


FF33 
FF 96 
FF99 
FF9C 
FF9F 
FFR2 
FFR5 
FFR8 
FFRB 
FFRE 
FFB1 
FFB4 
FFB7 
FFBR 
FFBD 
F F C 0 

FFC3 
FFC6 
FFC 9 
FFCC 
FFCF 
FFD2 
FFD5 
FFD8 
FFDB 
FFOE 
FFEi 
FFE4 
FFE7 
FFER 
FFED 
FFF0 
FFF3 

FFF6-FFF9 


Send SR e.tter LISTEM 

Comrnand serial bus deu ice to TBLK 

Read/se* the top meruory 

Read/set the bottom ot memory 

Scan keyboard 

Set timeout on serial bus 

Input byte trom serial port 

Output bvte to seria.I port 

Comrnand serial bus to UNTflLK 

Comrnand serial bus to UNLISTEN 

Comm and serial bus to LISTEN 

üommand ser 2 a11 * us to TRLK 

F!ead I/ü statAJS luord 

Set LFN.SR 

S e+ +i 1 er- ajn e 

ÜPEN 


Set I nput deuice 

Set Output de^ice 

Restore det.au lt I /O deu ice 

I npu + cki ar ac ter 

Output character 

LÜRD 

SRVE 

VER IFV 

SVÊ 

Test STOF key 

Get char ac ter trom keyboar-d queue 
Rbor t a. I l I /O ac 1 1 u i ty 
Q lock ijpdate 

Retur n x r y or =jan i zat i ori o t scr een 
Read/set x r y curso l position 
Returns base address ot 1/0 deuic 
Unused 


Hardware Vector ******* 
FFFR NMI vector 

FFFC Re set vector 

FFFE Interrupt vector 







































Cffll- 




VIC-1210 3KRAM 
k^rTíff 

S b > & LT ^ £ 1 

zoy<—i? 




Z tiliv-fn ^-ACD-írJ&^fP "STAR-TREK" Í:V 
fp-a a t í 7>T*s i; 3KWiOTffiaEW*T*í-. 

7 -yuJ: 

4> U L* $30fflff>*U KLINGON ^PHASER GUN. 
PHOTON TORPEDO U J: O^À *> tif: % 

y-AT't 0 S^TA 3> BASE *<3 0 > x t JLt'-t TOR- 


PEDO£ff?£T'£ í to 


(COMMAND) 


y-Atíbt4t, “COMMAND ?" t ** 

èhJt. - miGET 3 :£fêoT í> 1 , 1 ~ 8 COjKiííríft- t i-i n , ífca>* 


□ -7> K £#ítL 5 t s 


[ 1) : NAVIGATiON-- /J'. ! í ! $F*9<7)JKÍTCfiÉfflo*^|S),T^|o]T'-?tl J ftU t '<Oji 


t'*'ír!NPUTS:T-AÍ] L £ t„ 1 [5]T-X*JPt“tíÉlíÍSgí}|X 5 , B$fül (í 
L â to í» L^ifl L AteS**'^®*' bitfrtíl X L t i i£-Ê\ “OUT OF 
QVADRANT" «t StÜ £ *U x > £ — A 7 -í X#ti t t WfiL# II è A 0 £ 1 0 

[2) : WARP"-'l' ! í ! filBlOT®LÍT(-®ffl 0 ^[é](?)AÍ)líNAVIGATIONt («1 Uo At® 

A'*>t±.*At£ "OUT OF SPACE" tW F» t t 0Vj'tS A t A 0 £ t „ x*A- 

¥-ÍiS&Hx20, l %>S* 0 

[3) : SHORT RANGE SENSOR-£ S^v —o<50'htffif± 8 X 8 

T«íAÍT t *(i **\ KLINGONtí "K\ ENTERPRISE t± “E‘\ BASEti “B" 
T-S^ínJt, í “B“ **** t èl*. *iftUA*L A- 11- 

ÍC 1, TORP EDO A''?S ?£;**. í t„ 

[4) : LONG RANGE SENSOR-g-fc-AH'*&*'Í?C 3 X 3ÍBíDttffi 

3 A*<D$rT-SíjjA WCDÍ± A 5 KLINGON<75 St +C0<Í* í BASE, 

—«'í£à í ILcO$Sl£'ÍF L í t 0 


[ 5 ) - PHASER GUN-ENTER PRISE^-OT^ C> SttsW 1 O, x*;^-£ INPUT 
TA A lít, Ai'A o KLINGON 1 «Í>A 0 100 UNITS <h 
A'\ SUfcTSHÊt í «Ti' %<DT\ 900 UNITS OTx*7U*—TA lotf 

®T|iífV.'>; t fc* 0 3 t. StlSíáttffirttt feEftUMfffc 0 í tfAAA 
'J'?SfflKht;i:(±fMtA„ Atíâ, «tâlAKLIN GONíO&èSl^L. £ 
-fA<, — ot T A-tíA/ro Aift-â- “TOO LITTLE” <t Sl7Ü è K £ 1 0 xAJl^-ü 
A*ih — Oí7)^]'tí&AT'3IÕlíífflt * t. “PHASER GUN 

0VER WORKED" £ t£ 0 . t 3 f fílif fflTt I *A t £A, 0^AAt%t. 

jt. *<r> ttF*3AKÜNGONACfc&Lífl' 


NVIC! 


10 ftEM*#****#*******# 

20 REM#IW> r GR(WL TREK* 

30 REM* BV H.TflNRKfl * 

40 PEH*#****#*#****** 

50 REK 

50 DIMGK6-8) ,Q2tí?j 7Í jQ3Í(?j7) ,SÍ(.8j8? 

70 FORT=1T0":FORR=1TO7 
50 C(TíR>=1-NEXTR^T 
90 F0RT=1T03 
100 GOSUB1510 
110 IFQÍTZ.RZKMTHEN100 
120 GCTX,RX>=3 NEXT 
130 FCRT=1T07 : FCRP=1 T 07 
140 Q2$ÍTjR)=“0" NEXTRjT 
150 K=30 
160 OOSUB1510 

170 lFQ2*aX,RK)O"0"THEN160 

180 U5i=RND(l )#5+l: IFUK>KTHEMUÍi=K 

190 Q2*<TK,Ríi)=CHRtí43+UÍO -K=K-UX 

200 IFKO0THEN166 

210 FORT«1T07 ; FORR*1T07 

220 I33*( T, R) =CHRÍ (46+1NT < RNBC11 *6+1) ) 

230 NEXTRíT 

240 SETC712 í 4;PRINT“3" 

250 60SUB1510 : T 15í*Tíi : RtK=RK 

260 E-2000 ; P«18:(KTlX,Rl!!O-OI(T18.RíX>'-i:U«2001 : K8»30 ; F*2 
270 Q2*=Q2*íTll{iRl?!) : 93t"Q3*CTlí!jRlX) : 0*O(Tlí!>R12) 

280 GOSUB290 : GOSUB340 : GOTO470 
290 F0RT*lT0e FORR«=1TO0 
300 S*CT-R)*"+" : NEXTR.T 
310 3OSUB1520 
320 St(TK«R?í)="E" 

330 IFQ2í=”0‘TKEN380 
340 FORK=lTOV0LfG2íli 
350 GCSUB1320 

360 IFS*CTX-R!OO"+ 1I THEN330 
370 8»<TX.RK)»"K":HEXT 
380 FORS-1TOVRLCG3*) 

396 GOSUB1320 

400 IFS*(TX,RíOO" + "THEN390 
410 SíaKiRXl-^^NEXT 

26 


420 IFIK2THÊH460 
430 GÜ5UB1320 

440 IFSf(TJí,R%K>"+ ,f THEhi43@ 

430 S*<TíiiR 

460 REVMH 

±7® IFKS-0THEH1600 

48P IFQ=2 T HEME=2000 P=10 

490 IFEC®ORW>2031TNEM1530 

5 00 íF^-i0MDU=WW+3THENF=2:0W=e PRINT^IMOR. SP0CK FI^ED" PRIKT ,: THE PHASER G 
UN, 11 

310 I FF * -1 AKEQ=2T HEHF *2 ■ PR 1NT " Hl ÜÜiR * SP OCK FIKED 11: FRINT" THE FHfiSÊR GÜN- 11 
520 PRlHT"lHI»D0CQHnRNT ?" 

330 GETAf : IFRf OCHRÍ (40+VRL(flí > >THEH530 

34 0 QN V9L < m ) G 0SUE 560^7104 830,870 .■ 9601130,1310.1440 

550 6ÜTO470 

560 PRINT"H ^ KRVIGATIOH GK *==" 

570 INPUrsWIGHT >f iX 

580 I NPUT "r>M>• UiP•• HD0WN M ,V 

590 IF X*0flNBV =0T HENRETllRN 

600 E^rNTíE-SQR(XT2+V12>*5> : W=W+ T 5 

610 FORT=1T08 : F0RR= 1 T Ü8 

620 IFSt (T^i R)* ,, E II THEKSÍ CT, R) = ,> + 1 ' : Vl^T : XI =R : GOTO640 

630 HEXTR,T 

648 V1=V1+¥ : X1“X1+X 

650 1FV1>ÍORX1>8THEN700 

€60 IFVK1ORX1C1THÈH700 

670 1 F3t<Yl >X1 ><>t”THENPR1NT" 0ÍIÍIMICLUSH M ” ' GOTO1330 
680 StCVluXU»^" 

690 GOSUBS30: RJITURN 

700 PRINT H 1^« OUT OF QURBRPHT ^= IJ :RETURH 

710 PREHT" S “* WflRP 0K 

720 INPUT s, ttFlGHT %X 

730 INPUT 11 'IMMMilWtMUN “;Y 

740 3FX-0RNDV«0THeNRETURN 

750 E-INT<E-S9R(X12+V12)«0> ■ U=H+I 

768 T1!Í"T1X+V : RI?4 H RÍ!Í+X 

770 IFT1 ?í< 10RTI?í>7THENPRINT M ® == WRRP 0VER «" ; RETURN 
700 I FR L?í< 10RR1 K>7THENPRINT"K == W8 RP 0VER «" ■ RETURN 
790 q*Q(T1KjR 1JÍ> - Q2t*É22t{TrX> RIJO : Q3f=Q3f <TÍ‘Í, R1X> 

000 IFQO0RNDQO2THENWI-1 Q<T15ÍaR1?Í)*Q 

810 IFFO-1THENF-2 

820 GOSUB290 : GOSUBB30 RETURN 

830 PRINT M 1H*SH0RT RRN0E SENS0R»= ü 






















tS»\ íffi Í i ax> Kíf-tb i: 4 *1 i t a 

C6 ] : PHOTON TORPEDO-- t n — r> wSESS,, 10££ L A'fêffl T 1 £ ã -tí" A ,> 

T- 1 & 1 ±A,o í fzZU&T-ttttiò IttábOít. GET3C 

T-a^^írífc^T-X^ L í t 0 "K” íi *,%<*> A, “ B ”, “*"£ÍH!È-r £ z t 

tsrtlo — *T'i*^¥-50units, 

[7J : STATUS REPORT- ,, íS, : ?íí 7 )a>TY ‘>3 

OYEAR-.ísííJli30% 

OSTARDATE.íi/iííD%^, 2001^11^^-h 

OQUADRANT .TUft'.' Ò 'híffiOTJltl 

O ENERGY.íSoTi.' 5. ü#]i±2000units 

OCONDITION • ---PHASERIScOttElT- “BLVE”, “YELLOW”, “RED" t SMtc 
“BLUE" li í #í*^Tl‘4f < “YELLOW” T 1 0, "RED" T 2 EHfcffl. ZtiUÁ 



yy 

7K 

sit ^ at 

/T\ 7r\ yi\ 

\ly vi/ xi/ 

ÍF TF 7R 


ÕiJ 
5 0 2 


^ w \i/ 

/TN. /Ts. y*TS 

2 0 1 
0 0 1 


013 «'iRSÊX, K, 0, BASE 1 , jg.3 


*/**<, í í:***(Í*!ÍSí7)ÍgH«., 


C 4) @ti x? 7Y?4£A*(GET 

£). lifTftlí “MISSED”, htztLit “KLINGON DESTROYED" 

A^l i Xí±, XfrY II 0 írl'ítÍL(í3 XV $'&%£ Yjf 0 , ^#í £ llí -frA e 


[GAME OVER) 


» ) wn .xT-A-^-J#SA'* o Tíf < , & f] 0 iu_ht\ ^i]>3Ví-i 

TÍ£íÈLY:tí 0 

ü) Sfe4t. NAVIGATION T JL<>;? U > =f>, BASEUÍÊ3Ç L f; t x^A-^—* 

%l'iillíffl&'|$l'£ oT lío/;í í t 


-hí$ 1 t OVER WORK, í tz BASEAR [;£>& t, “D0CKED" £ ti 

0, x*;u^~, TORPEDO *<íiã£ ixi + . 

o PHOTON TOR-”53lx Ti'5 TORPEDO <7)& 

O KLINGON.-•••51 o X l 1 í KLINGON <75ffit 

( 8 ] : GALACTIC MAP--'á:T(7)'J'!?ffi (7X7ffl) fr 2 ¥ $ £7)&^ &C/feT'K 
7T 0 fêlí BASE i/í> í> T** ÍSfeliSli-EÊfl-íT)'-' 4 3fT-"To á Y: + CO-fiA* 
KíOSÍ, — (TXiliM^So tzti L, LONG RANGE SENSOR T 4-L T: L <>: CO 4' 
Wj^fgü â ^^íSE^CD^St £ tL, “ * * " T + & JL-& L £ j^T'^ í 

-tÍ-Ap 

(COMMANDtflJ) 

Cl] 12345678 E li (3, 6) IL\.' í ~t YA ® (1,2)U 

*^ÍÍ1{RIGHT ?)-2, T^- 
IÈl(DOWN?)-44rA*-#-*. t KDCB. 

<b*LT'Eti£fêL, ¥ 

-Ali4b't> 17 I t a í/:, 0,0£A*Tí> 

2r -foj t. ãC-ít-tT^s 3xv KfêíxtírOJiTp 
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+ 

+ 
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+ 

+ 
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+ 

* 

+ 
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+ 

S 

+ 

¥ 

+ 

+ 

+ 

+ 
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+ 

6 
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+ 

E 
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+ 

+ 
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+ 

7 

+ 

-h 

+ 

+ 

K 

+ 

+ 

+ 

8 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

<SHORT 

RANGE SENSOR) 


C2) 


5 

2 


** 

* * 

0 

I 

io 3j 

2 0 

* * 

3 

3 

0 5 

0 5 

|0 1 

2 

1 

2 3 

0 4 

1 5 
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<GALACTIC MAP> 


^Hl-L'T jÕTjuírí írliíUf RIGHT 
+ 2, DOWN + lírAt), ^li 00, 0?rATí 
T4t. Ht >S#ií T* 3 x v Kí^ T. t Yj: 0 
3 "To 


Cprogram) 

3R RAM^T-lilíè O ro t Yy-,xv.'3T 0 S V4' í»*'# 0 y/í 

U i õ C|,ií íi 1 , DIM 3t:T\ 8X8Í-2 0, 7X7^-2xfio 

É^Tí>2i.'-plíi.'l:íj:oT li L'í t. xtí * z t li X è 3 
T*\ Ül* PRINTJCÍr^ÀS i T II IT, (#LS$v Q 2 S, Q 3 S)íi^ 

xíft' i T tz IT < fi ? u 0 ií^o^A^Aitíl^ 37>Wíi:| 
^-íf ^ K- x (i v.'it 4' L' T < ti $ C' 0 

:#mí-A,2:Y-Alifèít)!i\ 2 =h.Tí> ^ T l 3 o f; ^1 T* a, *'- <n 

0 v ^ IJ v 3'v-P BASE COgfe ÍrS:x. tz 0 , 0 L T 

*-X<ti£\.' e 3 tz , 'H-^ÍSOT** Ali, èij|:37>FH J í>lf:'), 

c/ u va*v/>' e.<7)ifi:<íic i ii\ question 4-oitJDxr: 

0 l T *-t < tz è L'p ilft^coii, 16 KRAM + EXPANDERT-, TJU*X-, 77U 

K3X> FMTí-7-r 3 Tp 





WT>:!i1 

^®as5» 

“WftflTWN lt-t*. 




T*V.- 


JííÇST Flll FEIItliOMiVt 

■«w ríBtNnet^a 





í T í_ 


G 


940 PR INI 11 » "; =F0RT*ÍT0e : PRINTCHR$(48+T)j :N£XT 
830 FORT-1TO0 PRIHT:ORlNT" fP CHRí C40+T); 

8 Ê0 FORR^ITOS-PRINTSfCT jR )i NEXTR.T PRINT RETÜRH 
870 PRINT 5, 1&== LONG RRNGE SENSOR*®" 

800 F0RT»T1X-1T0T1?Í+1JPRINT" M ; 

890 FORR-Ri^lTORU+I 

900 EFTaGRT>7THEMPRINT M *#* ";:GOTO940 

910 IF : R<10RR>7THÊNPRINT"*Í# 11 1 : GQTO940 

SZZ IFQ(TjR5<2THENPRINTQ2$í t jR>"0"Q3S(T.-Rj ; GKTjR>=*0’GOTO940 

930 PRINTQ2Í " I ,r Q3í ,r "; : Q(T„R)-2 
940 NÊXT : PRINT'NEXT 
330 RETURN 

960 3 FF =-1 THENPR[NT 11 0PHflSER GUN UNUSAELE. 11 RETURH 
970 PRINT”® == PHfiSER GUN 0K ==" 

980 IFQ2Í*"S“THENRETURN 
990 INPUT "UMFQUER ,[ ;PG 
100® 3 FPG*0THENPRINT : RETURN 

1010 PRlNT"rmiPIVIMMMVL9NI T5 " : PR I NT"TOIilÍlilF 3 RE 1 " 

102& F=F*Í : E«E-PG : W®W+, 5 

1030 IFF=* 1THÊNPRIHT 11 IMPHRGER GUN ÜVEF NORK i " : l*tW=w: RETURN 
1040 KKK=RNBCn*INT<PG/100HINT(RNlKl?í5*RHD<l)> 

1030 1FKK^»0THENPRINT« TOO LÍTTLEf 51 - RETURN 
106® IFVRL<Q Z% )<KKXTHENKK?i= VRLí02í) 

1070 FORT=1TOKK?Í 
108® GOSUS1320 

1090 IFS*íTXyRK>O 11 K 1, THEN1080 

1100 SíCTK,RK) = "+ +t :Q2Í*CHR*C48+VfiLCQ»)-l) = Q2f(T15i,Rn^Q2tíNEXT 
1110 FRINTKKX” KLINGONS DESTRO VE B 11: KS=KS-KKJi 
1120 RETURN 

1130 IFP=8THENPRÍNT I1 W THERE"S NO TOR," r RETURN 
1140 PRINT ,F W =® PHOTON TOR, OK *e ,F 
1150 PRINT"® TARGET ?■* 

1160 PRINT 51 ® X ? H l 

1170 OETXf ; IFXf<>CHR$ ( 48+VflL CXÍ > >TNEN117@ 

1180 PRINT lt lirHriBii l H? n ; ^VWL<Xt) 

1190 QETV*: I FVfOCHR* < 48+VRL(V$ > >TMEN 1190 
1200 PRINT !l IÍ| l, J Vt:y=VflLíV$) 

1210 IFX=0ORV*0THENRETURN 

1220 PR INT lf H*• IIItF IRE i M : P=P-1 = E=Ê-3@ 

1230 PPK®RNBa>#10+l 

1240 IFPPM>7RNES*ÇV.X)O N + "THENPRINT"aiPlltl 1SSEE 1 ":RETURN 

1250 IFSf íV j X)** 11 B”THENPRINT 11 KMI8RSE DESTROVEDÍ! " : 0<T1Kí R1X)=® Q*0:GOTO1300 

1260 iFSf <V,. X)0 Pí THEN1200 


1270 PRINT SIKLINGON DESTROVEBl f 11 02Í=CHPÍCVRL^Q2Í 'M?} - 32íí71K-RrO*Q2$: 

: GOTO1300 

128® IFStíV, XÍO"* 11 “HENPRINI 11 ]® T HtR:E 'S NO "8R0ET," - RETURN 

1290 PRINT ,: SMISTRR DESTROVED! ! ' : Q3í-CHRJ<y*LíQ3-T> F ; /Õ=Q3$ 

1300 S^(V,X>='+ : RETURN 

1310 PRINT’ 1 ® == 3TRTUS REP0R7 

1320 PRINT” vEflRS = "; INTC£031 -UI> 

1330 PRINT” STRR-DRTE="; lN T rw^i 
1340 CT$="7I/ELL0W 


1350 IFF=2THENCTí* n lfcREEN3 h 
1360 IFF=0THEHCTÍ="fFErS <! 
1370 I FQ>1THENCT$“" hJÍ0CKED3 ,: 


1380 PRINT" CONDITION: ",-C t Í 
1390 PRINT” ENERGV= :| ;E 

1400 PRINT” QUPRDRPNT= «j CHRÍ c;RlE+4e>; : CHPifTlK+4S> 

141® PRINT” PHOTON T0R**";F 
1420 PRINT” KLINGONS” H ;KS 
143® RETURN 

1440 PRINT”® == GRLPCTIC Mpp =^®" 

1450 F0RT=1TQ?:PRINT” ,F ; :F0RR C 1T07 

1460 IFQíTí R>=10RQCT J R>-3THENPRIN Ti, 5(c#e : GOTO 1300 

1470 IFT=TlXRNDR=RUTHENPPINT"Sr02í(T,R>Q3trT,P>” : GOTO 150® 

1480 IFQ(T,R)®2THENPRlNT'V l Q2í(T J R>Q3ía J R> lF %-GOTOi500 

1490 PRINT ,P S I, Q2$CT,R)Q3*CT,R)" ,j ; 

1580 NêXTRí T : RETURN 


151® TX®RND<1)#7+1 RK*RND(lí#7+1 RETURN 
1520 TH®RND<1>*8+1 : R?Í*RND<1>*8+1 RETURN 


1530 PRINT"3" 

154® PRINrroaKMiirTHE U8R WPS OVER, 
1550 PRINT Í! OTPLflV ROflIN <V OR N>?" 
1560 GETPftf : IFPflf=""THEN156® 


FRINT^miVOU *RE LOOSER, 


1570 IFPfií* ! 1 N"THENPRINT” OIiltikl300D BVflT : ENB 
1580 IFPRtO"V"THEM1560 
1590 RUN 


II 


REfiDV. 


REfiDy. 
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OB-LA-DA” 


OB-LA-DI, 


MICHELLE” 


y ~7 ~r '-%y-7y 


70 


PRINT 11 : 


<1 IL II ■) II I 




10 REíl i******####** 

20 REM # OB-LR-DI, # 

30 REM * OB-LR-Dfí # 

40 REtl ##•**##•*#*## 

50 REN 

60 PQKE36964 ,4■R0KE36865 > 23 R=0 

70 PRlHT l 7k.™®aM)Q *****i******* íl 

@0 PRINT n # fllDB-LR-331 ^ fc#" 

90 PRINT" i í!» OB-LR-DR^ *" 

100 PRINT" 

110 PRINT"IVHinWli V1C"100I3 IP 

120 R=p+1:ONRGOSUB159>140,2210,£310.150.140,2210■2420. 150.1-40.^210,^4^0 

4030 

130 ÜOTD120 

140 GOSUB1600 GOSUB2210 GOSÜB1600 RETURN 
150 REM 2 

160 SOUNIK0,183,227,0,15) 

170 GOSUB2410 GOSUB2410 
180 SÜUNBC0,0,0.0115) 

190 SOUNIK0.' 0,227 9,15) 

200 G0SUB2410 GOSUB2410 
210 SOUNIK0 ,0■0 j 0,15) 

220 SQUNDC0, 19©j 227.-0 15> 

230 GOSUB2410 GOSUB2410 
240 SOUNPC0,0.0.0 15> 

250 SOUNIK®,207,227,0,15) 

260 G0SUB2410 : GG5UB2410 
270 SQUMB<0, 8,0,0.15) 

2@0 SOUND(0 j183,227 j 0 j15) 

290 OOSUB2410 GOSUB2410 
300 SQUNIK0,0 0,0,15) 

310 SOUNE(0j0 227.0,15> 

320 G08UB24 l 0 : G05UB2410 
330 SOUNIK 198,223,0>15) 
































340 GOSUB2410‘0OSUB2410 
350 SGUNEC0, 207.. 219,0, 15> 
360 GOSUB2410 GOSÜB2410 
370 SOUNDC0.0,0,0,15) 

380 SOUNDC 0,207..217..0,15) 
390 G0SÜB2410 : G0SUB2410 
400 SÜUND<0,0,223,0.15) 

410 G0SUB2410‘GQSUB2410 
420 SOUNIK0,217,223,0,15) 
430 3QSUB2410 GOSUB2410 

440 SOUNEC0,0,0,0,15) 

450 SOUNDC0,223,223,0,15) 
460 QOSUB2410:GOSUB2410 
470 SOUNE(0 j207,223 , 0,15) 
480 GQSUB2418 1 G0SUB2410 
430 SOUNEC0.0,223,0,13) 

500 GGSUB2410GOSUB2410 
510 $ÜUND<e,21?,0,0, 15) 

520 GOSUB2410 GOSUB2410 
530 SOUNDC0,223,228,0,15) 
540 GOSU B2410■G05UB2410 
550 SOUNE C 0 , 207,228,0,15) 
560 G0SUB2410 ; GOSUB2410 
570 S0UMDC8,0,0,0,15) 

500 SOUNBC0,0,228,0,15) 

530 GQSUB2410 : GOSUB2410 
600 SOUNBÍ0,0,0,0,15) 

610 SOUNDC0,217.226,0,13) 
620 GOSUB2410 ; GG5UB24I0 
630 SOUNDC0,0.0,0,15) 

640 SOUNDC0,223,228,0,15) 
650 GQSUB24i 3 - G0SUB2410 
660 SOUHr^0■0,0,8,15) 

670 SOUNBC8,207,228,0,15) 
680 GOSUB2410G0SUB2410 
630 SOUN1K0,0,0,0,15) 

760 SGUNB-r0,0-220,0,15) 

710 GOSUB2410 GOSUB2410 
720 3OUNB<0,217.227,0.15: 
730 G0SUB2410•G0SUB2410 
740 SOUNE<8,223,223,0-15> 
753 GOSUB2418 : GOSUB2418 
760 SOUNDC®,219-213,0 15) 
770 G06UB2410 : GOSUB2410 
780 SOUND<8,0.219,0,15) 

7S0 G0SUE2410 : G0SUB24:0 
800 SOUNPC0 136,219,0 13} 
810 GOSUB2410 GOSUB2410 
620 SOUNDC 8287 219,8,15) 
330 G0SUB2418 OOSUB2410 
840 SOUNDC0,219■0■8.15) 

856 GOSUB2410 GGSUB2410 
-968 SOUNE(0 k 0.0,15> 

970 GOSUB2410 G0SÜB2410 
360 SOUNDC0-138.0.0,15) 

990 OOSUB2418:GÜSUF241® 

900 SOUNE <8.207.231,0 15) 
910 00SUE241® : GOSUB2410 
920 SOUNDC®: 219-231-0 15^ 
?30 50SUB2410 : GOSUB 2410 
340 SOUNDC0,0,0,0,15> 

950 SüUN1kB,0,231 0;15> 

363 GOSUB2410 GO5UB2410 
970 SOUNDC 0 -193231, Õ ■ 15) 
980 GOSIJB2410 GGSUE2410 
990 SOUHDÍ0,0,8,0.15) 

1030 SOUNDC0 237 231,0-15) 
1013 G0SUB2410:00SUB24l0 
1020 SOUMBÍ0,0,0.0115) 

1030 SOUND(0213231,0.15) 
1048 GOSUB2410 GOSUB2410 
1058 SOUNE(0,0,0,0,15) 

1063 SÓUNBC0,0,231,3 15) 
1070 GOSUB24!0 : G0SUB2410 
1080 SOUND(8■198 226 0.15? 
1390 GOSUB2410 : GOSUB2410 
1100 SOUNE(0,207.227,0.15) 
1110 G0SUB241@ : GOSUB2410 
1120 SOUNEC0,201,228,0.15) 
1130 GOSUF2410 ; GDÊUB2410 
1140 SOUNEC8-0,231.8,15) 
1150 GOSUB2410 GOSUB2410 
1160 SOUNE(0,213,0,015) 
1170 GOSUB2410 1 GOSUI2410 
1180 SOUNE (0,219,234,0,15) 
1190 OQSUB2410-GOSUB2410 
1200 SOUNE(8.201,234,0,15) 
1210 GÜSUB2410 GÜSUB2410 
1220 SOUNEÍ0,0,0,0.15) 

1230 SOUNTK0,0,234.0.15? 
1240 G0SUB2410 -GOSUB2418 
1250 SOUNEC0,0,0,0,15) 

1260 SOUNE(0,213,231.0.15) 
1270 G0SUB2410 ; GQSUB2410 
1280 SQUNEC0,219,228,0.15) 
1290 GOSUB2410 : OOSUB2410 
1308 SOUNEíG,0,0,0,15) 

1310 $OUND<0,219,227,0,15) 
1323 GOSUB2410 ; GOSUB2410 
1330 SOUNE<0.0,0,0,Í3> 

1343 SOUNEÍ0,0,219,0,15> 
1358 GOSUB2410 GOSUB2410 
1368 SOUNDC0,198,228,0,13) 
1370 GOSUB2410 GOSUB2410 
1380 SOUNDC0,287,227,0,15) 
1390 G0SUB2418 GOSUB2410 
1400 SOUNE(0,0,0,0.15) 

1410 SOUNDC0:287,223,8,15) 
1420 GOSUB2410 GOSUB2410 
1430 SOUNDC0,0i228,0.15) 
1448 GOSLIB2410 -G0SUB2413 



1450 S0UNE(8-217,227,8.15) 

1460 GOSUB£410:G0SUB2413 
1473 SOUNE(8,223,223,0.15) 

1493 GOSUB2413 

1498 SOUNE(0■223,219 3-15) 

1530 OOSÜB2410 

1510 SGUNEí?,215,219.0.15) 

1520 G0SUB2418 GOSUB2410 
1530 SOUNE(0,0219,0,15) 

1540 G0SUB2418 : G0SUB241© 

1550 SOUNEf0.196 213.0-15) 

1560 GOSUB2410:ÇO3UB2410 
1570 SOUNE(0,287 213,0,13) 

15*0 GÜSUB2410 : G0SUÊ2418 
■590 SOüNECG,8,0,0. 15) : RETURN 
1680 REr 3 

1618 SOUNE(8.219-8 8-15) 

1620 30SUB2418=00SUB2418 
1638 SOUNDC©,8.0.0,15? 

1648 SOUNE (0■219,213,8.15) 

1658 GOSUB2418:G0SUB2410 
1660 SOUNE(0,190. 227.8.. 13) 

16 78 GOSUB2410:00SUB2418 
16S8 SOUNE<0.207.231,8,15) 

1698 GOSUB2410 G0SUB2418 
1780 SÒUHE<8,219,231,0,15) 

1718 GOSUB2410 GGSUB2410 
1720 SOUNE(8,0,219,0,15) 

1730 G0SÜB2410’G0SUB2410 
1740 SOUNE(0 198,227,8,15) 

1‘50 G0SUB2418 OOSUB2410 
1768 SOUNE<0,207,231,0,15) 

1770 GOSUB£418 -GQSUB2418 
1788 SOUNE(0.219.231.0.15) 

1798 GOSUB2410 GOSUB2410 
1300 SOUNE<0.0,219,0,15) 

1B10 G0SUB2410 : OOSUB24I0 
1820 SOUNE<0,198,227,8,i5> 

1838 GOSUB2410 GOSUB2410 
1840 SOUNE(0,207,231,0,15) 

1850 OOSUB2410 1 G0SUB2410 
1860 SOUNEC0,0.231 0,15) 

1870 SOUNE(0j207.231•8,15) 

1880 GOSUB2410 ; 0ÜSUB2410 
1890 SOUNE<0,0,231,0,15) 

1980 GO SUB 2418 : G OS UB 2410 
1910 SOUND(0,198,231,0,15) 

1928 G0SUB2410 : GOSUB2418 
1938 SOUNEC0,207,237,0,15) 

1940 G0SUB2410 : GOSUB2418 
1950 SOUNEC0,213,237,0.15) 

1960 OOSUB2410GOSUB2410 
1970 SOUNE <0,0,237,8,15 > 

1960 GOSUB2410 : GGSUB2410 
1990 SOUNE(8,198.0,0,15) 

2800 GOSUB2410 : G0$UB2418 
2810 SOUNEC0,191,231j0,15) 
2020 GOSUB2410 : GOSUB£410 
2030 SOUNEC0,183,231,0.15) 
2043 OOSUB2410:GOSUB2410 
2050 SOUNE<0,0,229,0,15) 

2860 GOSUB2410 GOSUB2410 
2070 SOUNECe,199,227,0,15) 
2080 GOSUB2410 : GOSUB2410 
2090 SOUNE<0,207,220,0,15) 
2100 G0SUB2410 : GOSUB£410 
2110 SOUNEC0,0,0,0,15) 

2120 SOUNDC0,207,227,0,15) 
2130 GOSUB2410 : G0SUB2419 
2148 SOUNE<0,0.223,8,15) 

2150 GOSUB2410:G0SUB2418 
2168 SOUND(0,217,223,0,15) 
2170 OOSUB2418 : G0SUB2418 
2180 SOUNB<0>223,219,0,15) 
2190 GOSUB2410 : G0SUB2410 
2200 RETURN 
2210 REM 7 

2220 SOUNE<0.219,219,0,15) 
2230 GOS UB 2410■G OS UB 2410 
2243 SGUND<0. 0,219.0,15) 

2250 GOSUB2410-G0SUB2418 
2260 SOUNDC0,198,219,0,15) 
2270 OOSUB2410 : G0SUB2410 
2280 SOUNE<0,207.219,8,15) 
2290 GOSUB2410 : G0SUF2410 
2380 RETURN 
2310 REM 4 

2320 SOUNE(219.’ £ 19 * 0.■ 0 ■ 15) 
2330 GOSUF2410 -GDSlJB2410 
2340 SOUNDC0,0,0,0-15) 

2350 OOSUB24 í 0 : GOSUB2410 
2360 SOUNE (227 227,3.8,15) 
2370 GÜSUB2418 : G0SUB2410 
2380 S0UNEC231 207 0.0,15) 
2390 GGSUB2410 OOSUB2410 
2480 SGUNDC0. 0,8.0,15) RETURN 
2410 FOR S=1T0 80 NêXT RETURN 
2420 REM 5 

2430 SOUNEí0.219,0-0,15) 

2440 GOSUB2410 GOSUB2410 
2458 SOUNE(0,223.0.0.15) 

2460 OOSUB2 4 1@:OOSUB2410 
2470 SOUNE C0,225,0-8,15) 

2480 GOSUB2410 : GOSUF2410 
2490 SOUNE(8,227.0,0,15) 

2500 GOSUB2410 GOSUB24Í0 
2510 SOUNEC0.229,0,0,15) 

2520 GOSUB24T0-GOSUB2410 
2538 SOUNEC0.219,219,0,15) 
2540 OOSUB2410 
£550 SOUNDC8,219,0,0.15) 























2560 

2570 

2500 

2590 

2600 

2510 

2620 

2630 

2646 

2656 

2660 

2670 

2600 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2060 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2380 

2890 

2300 

2913 

2920 

2930 

2340 

2950 


2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3860 

3078 

3030 

3090 

3100 

3110 

3120 

3138 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3218 

3220 

3230 

3248 

3250 

3260 

3270 

3280 

3290 


3310 

3320 

3330 

3340 

3350 

3360 

3379 

3380 
3390 
3400 
3410 
3420 
3430 
3440 

3450 

3468 

3470 


3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3608 

3618 

3620 

3638 

3640 

3650 

13668 


SGUNIK0J 219j 219,0, 15) 
Q0SUE2418 

SOUNDÍ0,228, 228,0,15) 
GÜ5UB2410 

SOUND (0,228,>8, 15) 
SOUND(0, 22S722ÜT0 ,15) 
GOSUB2410 

SOUHB(0,£19,231,0,13) 
GGSUB2410 3 G0SUB2410 
SGUNIK 0,228,234,0,15) 
Q0SUB2410iGGSUB2410 
SOUNDC0,219*234,0,15) 
Q0SUB2410 ! G0SU52410 
SOUNDÍ8,220,231,0,15) 
GO S UB2418 : GÜS UB 2410 
S0UNDÍ8,219,234,0,13) 
GOSUB2410 GOSUB2410 
SOUNDxe,228,237,0,15) 
G0SUB2418 GGSUB2410 
SOUND(0,219*0,0,15) 
GOSUB2418 : G0SUF2410 
SOUND(0,220,228,0,15) 
GOSUB2410 : 00SUB2410 
SOUNDC0,219,234,0,13) 
G0SUB2410:G0SUB2410 
SOUNDC0,228,234,0,13) 
GOSIJB2410-GOSUB2410 
SQUND(3,219,219,0,15) 
GDSUB2418 : G0SUB2418 
S0UNDC8,228,219,0,13) 
GGSU12410’GOSUB2418 
S0ÜNDC8,231,227,0,15) 
G0SUB2418■G0SUB241 0 
SOUNÍK0,219,227,0,15) 
G0SUB2410 : Ü0SUB2*10 
SÜUNIK0, 8,0,0,15) 
S0UNIK8, 287,227,0.' 15) 
G0SUB2418 : GGSUB2 4 1 0 
9OUKIK0,219,227,0,15) 
GGSUB2410:G0SUE2410 
SOUNIK0,0,0.0,15) 
SOUKBÍ0,267,227,9,15) 
GOSUB2410:G08UB2410 
SOUNDÍ0,219,223,0,15) 
GOSUB2410 GOSUB2410 
S0UNr(8,0,0,0,15) 
SÜUNEC0,287,223,0,15) 
G0SUB2418 : GOSUB2410 
SOUN1K0,219,223,0 15) 
GOSUB2418GOSUB2410 
SOUKIK0,0,0.0,15) 
SGUNDíG,207,223,0,13) 
G0SUB2418 : G03UB2418 
SOUND (0219,213,0,15) 
G0SUB2410:G0SUB2418 
SOUNDÍ0*8,0,8,15) 
SOUND( 0,287,219,0 1?) 
G0SÜB2410:G0SUB2418 
SOUNBÍ0,219,219,8 15) 
G OSU E2410:G03UB2418 
SOUNIKB, 0,0,0/13) 
SOUNDÍ0.»287.219,0,15) 
G09ÜB2410 J G0SUB2410 
SÜUNIK0:219,215,0,15) 
GOSUB2 410 : G OS UB 2413 
SOUHBC0,0-0,8,15) 
S0UNDC8,223,215,0,15) 
GCSUB2410 : GÜSUE241 0 
SOUNEÍ0,219,213,0,15) 
GGSUB2418 -G0SUB2410 
SOUNBíS,0,0,0,13) 
SOUND(0,227,215,0,15) 
G OSU B2418 ; G OSU B2 418 
SOUND (0.-228*0,0,15) 
GOSUB2410 ; GGSUB2410 
SOUNEÍ0,219,219*0*13) 
GOSUB2410 

SGUNBC0,219,0,0,15) 
SOUNBC0,219,219,0,15) 
GOSUÊ2410 

SDUNEÍ0,228,228,8/15) 
G0SUB2410 

SOUND<@*£28,0,0,15) 
SOUNDÍ0,£28,228,0*13) 
GOSUB2410 

SOUNDÍ0,219,231,0,13) 
GOSUB2410■GGSUB2410 
SOUNDÍ0,228,£34,0*13) 
GQSUB2418’GOSUB2410 
SOUNBÍ0,219*0*0*13) 
G0SUF2410:G0SUB2413 
SOUNEÍ0,228,£31,0,15) 
G0SUB2418 : GGSÜB2410 
SOUNEÍ0,219,234,0,15) 
GOSUB24l0:GOSUB24i0 
SOUNECG,228.' £37,0.-13) 
G0SUB24 10 :GQSUB24I0 
SOUNDC0,219*0,0,15) 
GOSUB2410 : G0SUB2410 
SOUHEÍ0,228,228,0,15) 
GOSUB241 0 ■G0SUB2410 
SOü>*EC0, 219,234,0,15) 
GOSUB2410 : G03UB2410 
SOLTOíG 228-234 0,13) 
GOSUB 2410■GOSUE2410 


3678 

3688 


SOÜNDÍ0 .21 
GOSUK410 


9.1 £34 0,15) 
GOSUB2410 
SOUNBO, 228.-0,0, 15) 
GGSUB2418'GOSUB£410 
SOUNBÍ0. £31,219,0,15) 
GCSUB2410 : GOSUB2410 


^ A 

*•„> 
1 • 



3788 

3710 

3?20 

3730 

3740 

3758 

3?60 

37^0 


3790 

3800 

3810 

3028 

3830 

3840 

3830 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3900 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4860 

4070 

4800 

4098 

4100 

4118 

4120 

4138 

4140 

4150 

4160 

4170 

4180 

4100 

4200 

4210 

4220 

4230 

4240 

4230 

4268 

4278 

4260 

4290 

4300 

4310 

4320 

4338 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4300 

4510 

4320 

4538 

4540 

4350 

4368 

4370 

4588 

4390 

4600 

4610 


30 



SOUNDÍ 0,215,£27f0,15) 

GCSÜB2410 : GQSUB2413 
SOUNIK0.8-0,0,15> 

SOUNDÍ0,307,227,0,13> 

GDSUE2418 ; 00SUB241@ 

S0UNDC8-207,0 0 .' 15) 

SOUNEC0.20 7 .-.227: 0-15) 

GOSÜ32410 GOSUB2410 
SOUNDÍ0,0,0,0,13) 

SOUNDÍ0,207,220,0 15) 

00SUB2410-G0SUB241 0 -G0SUB2418:0ÜSUB2410 
SOUNDÍ0,0,0,0# 15) 

SCUNDÍ0,207,227,0 15) 

G0SUB241 0 ‘ G0SU12410 - G0SUB241 0 G0SUB241 <g 
SOUND(0.0,0 j 0. 1 15) 

SCUND(0, 207,227,0,15) 

G0SUE2410 : G0SUB2418 
SOUNDÍ0,0,227,0,13) 

GGSUB2410 

SOUNDÍ0,287,223,8,13) 

GGSUB2410 : G0SUB2410 
SOUMIK0.0,223,0,15> 

SÕUNE C0■207j 223,8,15) 

G0SUB2410 : GOSUB2410 : G0SUB2410:G0SUB2418 
SOUNEC0.. 0.223,0,13) 

SOUHBC0,207,223,0,13> 

GQSUB2410 : G0SUB241 0 
SOIMK0,207,0,0,15) 

G0SUB2410'GG8ÜB2410 
SOUNIK 228 1 229,0,0,13) 

GDSUB2410 : G0SUB2410 
SOUND C 227.22?,0,0,15) 

GOSUB2410-OO8UB2410 
S0UHEÍ223,223,0,0,15) 

GOSUB2410:GOSUB2410 
^ETURH 
REM 6 

SOUNBC0,213,219,0,15) 

G0SUB2410 -G0SUB241 Z 
SOUNBÍ0,8,219,0,15) 

OOSUB2410 : 00SUB2410 
SOUNB(0,227,219,0,15) 

ÓOSUB2410-GOSUB2410 

3OUHB(0, 0,219,0,15) 

GO SUB 2410 : GO SU B2410 
SOUNE(0,213,0,0,13) 

GOSUB2410-GOSUB2410 
3OUNBC0,8,8,0,15) 

$011^(0,213,0,0,15) 

G0SUE2418 

SOUHDC0■207,00,15) 

GOSUB2418 

SDUHEC0.2£7> 0,0,13) 

00SUB2418 
SOUNJK0,0,0,0-1?) 

3OUND(0.<227,234 0,15) 

00SUB2410 
$OUNE(0,0,8,0,13) 

SaiND<0, 213: 234,0, 1 ?) 

00SUB2410 

SOUHEX0,213.0.0,15) 

SOUND(0,213,234,0,15) 

GOSUB2418 
SOUND(0>0,0,0,13) 

SOUNDÍ0213,237,0.15) 

G0SUB2418 G0SUP241 0 
SOUNDC0,8,0,8,Í5) 

SOUND(0.0,237 0,15) 

00SUB2418 ; G0SUB2410 
SOUNDÍ 0,227 j 234 ,= 0,15) 

GGSUB2 d 10 

SOUNDÍ0 227,237,®. 15) 

GOSUB2410 

SGUNDÍ0, £13,237,0.15) 

G0SUB2418 -GGSUB241 0 
SOUNDÍ0,0.0,0.15) 

SPUNPÍ0, 213,0 8 15) 

G0SUB2410 : G0SUB2410 
SOUNDÍ0,0,0,0,15) 

GOSUB2410 GOSUB2410 
SOUNDÍ0,227,0,0,13) 

00SUB2410 ■ 0GSL'B2410 
SOUNDÍ0,213,234-0,15) 

00SUB2410 : GGSUB2410 
SOUNDÍ0,287,231,8*13> 

GOSUB24Í0 : GOSUB2410 
SOLINDC0,281,228,6,15) 

G0SUB2410 ; G0SUB2410 
SOUNDÍ0,193,227,0,13) 

G0SUB2410 : G0SUB2410 
SOUNDÍ0,191,223,0,15) 

GOSU12410.QOSUB24I0 
SOUNDC0,103,249,8*15) 

GOSUB2410 1 GOSUB2410:GOSUB2410‘GOSUB24I0 : GOSUB2410 : GOSUB2410 
SOUNDÍ0,0,8,0,15) 



e*En<v 







10 rei mmmmmmm 

20 REM > MICHELLE * 

29 REM * SV H.TflNflKFW 

30 REP1 •*••***#*****« 

40 POKE36664,4:P0KE36863,23 

90 PRiNrisrainDtnptw-n michelle 

60 PR INT''XSBMMMBVk VIC-100L3" 

70 1*0 

00 ONI+1GOSUB140,343,370,130, 130, 1480,820,340,1880,1480,1490,2190 
90 I»I+1 ; IFK13THENGOTO00 
100 souNDC 0 ,e,e,e, 0 > : EHp 

130 GQSUB340 ■GOSUB680' GOSUB790'RETURN 
140 REM 1 

190 SOUNDC£23,231,0,0,15):GOSUB1220'GOSUB1220 
180 SOUNDC223,239,0,0,15)'OQSUB1220-GCSÜB1226 
170 SOUNDC223,230,0,0,13) : GOSUB1220 GCSUB1220 
180 SOUNI)<230,£39,0,0,L3) 'GOSUB1220' GOSLIB1220 
190 SOUNDC 231,228,0,0,13 >: OOSUB1220:GOSUBl£20 
200 SOUNDC 231,239,0,0,13 > =GOSUB1220:GOSUB1220 
210 30UNDC231,227,0,0,13):GOSUB1220'3OSUB1220 
220 SOUNIK 223,239,0,0,13): GOSUB 1220: GOSUBl220 
230 SOUND<207»223,0,0,13)'GO5UB1220 G0SUB1228 
240 SOUND C207,239,0,0,15>:GOSUB1220'GOSUBl220 
250 SOUNIK207,237,0,0.13) : GOSUB1220-GOSUBl220 
260 SOUNB<20?,235,0,0,13) : GOSUB1220 : GCSUB1220 
270 SGUND < 223,234,0,0,13): GOS UB i 220 : GOSUB1220 
280 50UNDC223,239,0,0,13) : GOSUB1220: qoSUBI 220 
290 SOUNIK223,0,0,0,13) 

300 30UND<223,239,0,0,15):GOSUB1220:GOSUBl220 
310 SOUND<223,0.0,8,13) 

320 SOUNDC 223,239.0,0.13)'GOSUB1220'GQSUB1220 

330 RETURN 

340 REM CRI STRRT 

330 SOUND<207,239,0.-0» 13)'GOSUB1220GOSUB1220 
360 SOUNDC207,231,0,0,13) : GOS UB l220 : GOSUB1220 
370 SOUNDC0,0,0,0,15) 

380 SOUN BK 207,239,0,0,13) : GOS UB 1220 : 00SUB12 20 
390 SOUNB<207,231,0,0,15):GOSUB1220GOSUB1220 
400 SOUND<0,0,0,0,15> 

410 SOUNB<219,0,0,0,13) GOSUBI220'GOSUB1220 


420 S0UNDC219,0,225,0):GOSUB1Z20'GOSUB1220 
430 SOUNDC0,0,0.0,13) 

440 50UND(219,235,0,0,15):GOSUB1220:GOSUB1220 
430 S0UNBC2T9,231,0,0,13):QOSUB1220 : GOSUBl220 
460 SGUNDC228,234,0,0,13) : OOSUB1220:GOSUF1220 
470 SOUNIK228,239.0.E>13)GOSUBl220:OOSUB1220 
480 SOUNDCC,0,0,0.15) 

490 SOUND<219,234,0,0,15):OOSUB1220:GOSUBl220 
300 SOUND<219,0,0,0,13) 

310 SOUND(219,234,0,0,13):GOSUE1220:GOSUF1220 
320 S0UNDC227.231,0.0,15) : COSUE1220:GOSUB1220 
330 SOUNB C 22?,235,0,0,13)'GOSUB1220: GOSUBl220 
340 S0UNBC213,238,0,0,13):GOSUB1220:GOSUB1220 
330 SOUND(213,239,0,0,13):GOSUB1220:GOSUBl220 
360 RETURN 
370 REM 2 

380 S0UNDC223.234,0,0,13) : GOSUB1220 : GOSUBl220 : GOSUBl220 ; GOSUB1220 

390 SOUND<213,231,0,0,15):QOSUB1220:QOSUB1220 

600 S0UNDÍ213.233,0,0,13) :<3OSUB1220 

610 SQUNDC213,234,0,0,13):COSUB1220 

620 SOUNDC 223,234,0,6,13) ; GOSUB1220 : GOSUBl220 

630 SOUND<0,234,0,0,13) 

640 S0UND<223,234,0,0,13):GOSUB1220 : 00SUB122B 
630 SOUNDC227,234,0,0,15) ; GOSUBl220 : GOSUBl220 
660 SOUND<230,234,0,0,13):GOSUB1220:QOSUB1220 
670 RETURN 
600 REM CB3 STRRT 

690 SOUND<223,234,0,0,15)GOSUBl220:GOSUBl220 : GOSUBl220 : GOSUB1220 
700 SOUND(213,231,0,0,13):GOSUB1230 
710 S0UND(213,234,0,0,13);OOSUB1230 
720 S0UND(213,235,0,0,13):OOSUB1230 
730 SOUND(223,234,0,0,13)'GCSUB1220'GOSUBl220 
740 SOUND(0,234,0,0,13) 

750 S0UND(223,234,0,13) GOSUB1220'008UB1220 
760 SOUNDC0.234,0,0,13) 

770 SOUND(227,234,0,0,15):00SUB1228:GOSUB1220 
700 RETURN 
790 REM 3 

900 SOUNDÍ230,0,0,0,15) ; GOSUB1£20 
810 SOUND(230,239,0,0,13>:GOSUB1220 

829 S0UND(231,0,231,0,13):OOSUB1230 

830 S0UND(231,0,228,0,13):OOSUB1230 
840 S0UND(231,0,223,0,15):G0SUB1236 
830 S0UND<223.0,231,0,13):GOSUBl230 
960 SOUNDC223.0,228,0,13) : F0RFhlT0134NEXT 
870 SOUNDC220,0,228,0,15):F0RR«=1T0134 NENT 
980 S0UND(228,0,223,0,13):GOSUB1230 
898 SOUNIK231,0,234,0,13):GOSUB1228 ; GOSUBl220 
990 SOUNDC231,0,231,0,15):OOSUB1228 = GOSUBl228 
910 SOUND<223,0,231,0,15):GOSUB1220 : GOSUBl226 
920 SOUND< 228,0,0.0,13): GOSUB 1220 : G 1 
930 SOUND(233,8,0,0,13) : GOSUB1220 
940 SOUND< 233,240,0,0,15 >:GOSUB1228 
950 SOUNDÍ0,0,0,0,15) 

960 S0UNDC232,240,0,8,15) ; GOSUP1220 
970 SOUNDC 232.239,0,0,13):OOSUB1220 
980 SOUND(231.240,0,0,15):GOSUB1220 GOSUB1220 
990 SOUND(228,235,0,0,13):GOSUB1220 
1000 S0UNDÍ228,0,0,8,15) 

1010 S0UND(228,233,0,0,15) : GOSUB1220 
1020 S0UNDC223,233-0,0,13):GOSUB1220GOSUÍ1220 
1030 $OUNB(2£8.-235,0,0,15) ; GOSUE1220 GOSUB1220 
1040 S0UND(231,233,0,0,15) : GOSUB1220 : GOSUB1220 
1930 SOUND(225,235,0,0,13) GOSUB1220GOSUB1220 
1060 SOUND(223,3,0,0,13);GOSUÊ1220 
1070 SOUND<223,239 3,0,13) GOSUB1220 
1090 SOUND(0,0,0,0,13) 

1093 SOUND(220,239,0,0,13):GOSUB1220 
1100 SOUND(228,0,0,0,15) 

1110 SOUND(228 239,0,0,13) GOSÜB1220 
1120 S0UNE(231,0,231,0,15) ; GOSUB1220 GOSUB1220 
1130 SOUND<223,239,0,0-13):GOSUB1228 







1140 SOUND<223,237,0,0,13) ; GOSUB1220 

1130 SOU ND (207,237, 8 ,0,13) : GCSUB1220 

1160 SOUNDC207,235.0,0,13) : GOSUB1220 

1170 SOUND<213,235.0,0,13) : GQSUB122@ GOSUB 1220 

1180 S0UND<213,0,0,0,13) GOSUB1220 

1190 SOUNDC213,235,0,0,13) : COSUB1220 

1200 S0UND(219,237, 0 , 0 ,15)'GOSUB1220'GOSUBl220 

1210 OOTG1240 

1220 FORfl=tTO200'NEXT:RETURN 
1230 FQRR»1T0266'NEXT:RETURN 
1240 SOUND<2£3,239,0,0,13) ; GOSUB1220GOSUB1220 
1230 S0UND<223,0,0,0,13) 

1260 50UND<£23,239,0,0,15)'QCSU11220'G0SUB122C 
1270 S0UND(223,0,0,0,13) 

1280 SOUND(223,239,0,0,13):GOSUB1220'GOSUB1220 
1290 SOUND<0,0,0,0.13) 

1300 SOiMK201,239,0,0,15):GOSUB 1220: GOSUBl220 
1310 SO'JND(0,0,0,0,15) 

1320 S0UND(287,239,0,0,13):GOSUB1220:GOSUBÍ220 
1330 SOUND(207,0,0,0,13) 

1340 SCUND(207,239,0,0,13):OOSUB1220 : 3OSUB1220 
1350 SOUND(207,0,0,0,13) 

1360 SOUND(207,239,3,0,13) ; GOSUBl220 : OOSUB1226 
1370 SOUND(0,8,0,0.13) 

1380 SOUND(223,239,8,0,15)GOSUB1220'GOSUBl220 
1390 SOUND(0,0,0,0,0) 

1400 SOUNDC20?,239,0,0,15):GOSUB1220:QOSUS1220:GOSUB1220 GOSUBl 220 

1410 SOUND(£07,237,8,0,15) : GOSUB1220 : GOSUB1220 

1420 SOUNDÍ207,215,0,0,13):qosUB1220:GOSUB1220 

1430 30UNDÍ 223,234,0,0,15):GOSUB1220:OOSUB1220 

1440 30UND(223,234,0,0,13):GOSUB1220:OOSUB1226 

1450 SOUNDC223,234,0,0,13):GOSUBl220:OOSUB1220 

1460 S0UND(223,0,0,0,13):QQSUB1220:QOSUB1220 

1470 RETURN 

1400 REM 4 

1490 SOUND<207,231,0,13):GOSUB1220:OOSUB1220 
1300 SOUND<207,231,0,0,13):OOSUB1220 
1510 SOUNIK207,0,0,0,13) 

1520 SOUNIK207,231,0,0,15):FORft"1T0100 : NENT 
1530 SOUND(207,234,0,0,15) 1 FORft”1T0100 : NENT 
1540 SOUNDÍ 223,236,0,0,15) 1 GOSUB1220 
1550 SOUND(0,236,0,0,15) 

1560 5CUNIK223,236,0,0,15): GOSUBl220 
1570 SOUNDC0.236,0,0,15)=GOSUB1220 
1580 SCUND(217,237,0,0,13) :FORR»1TO100 NENT 
1390 SOUNDC 217,239,0,0,13):FORR-1TO100:NENT 

1600 SOUNDC219,240,0,0,15)'GOSUB1220 : GOSUB1228 : GOSUBl220 : GOSUB1220 
1610 SOUND(207,233,0,8,15):GO SUB1220'GO SUB1220'GOSUB1220'G GSU B1220 
1620 SOUND(228,234,8,0,13):GOSUB1220=GOSUB1220 : GOSUBl220 
1630 S0UNDC228,0,0,0,13) 

1540 S0UNDÍ228,234,0,0,13):FORft=lT0108 : NENT 

1630 SOUND(228,233,0,0,13):FORft=lTO100 : NEXT 

1660 SOUND(219,237,0,0,15)'GOSUB1220'GOSUBl220 

1670 S0UNDC219,228,0,8,13):OOSUB1220'GOSUB1220 

1680 SOUNDC227,231,0,0,13) : GOSLB12£0:GOSUB1220 : OOSUB1220 

1690 S0UND(227,0,8,0,13) 

1700 SOUND(227,231,0,0,15) : FORR=1 TC100'NENT 
1710 SOUND(227,234,0,0,13)'FORft*1TO100'NEXT 
1720 SOUND<221,233,8,0,15)'GOSUB1220'GOSUB1220 
1?30 SOUND<227.227,0 0,13)'GOSUB1220'GOSUB1226 
1740 SOUNDC22G,230,0,6,13)'GOSUB1220'GOSUBi226 
1730 SOUNDÍ223,223,0,0,13):OOSUB1220 GOSUB1220 
1768 SOUNDC221,227,0,8,15)'OOSUB1220 
1778 SOUNDC221,235,0,8,13) OOSUB1220 
1788 SOUNB(£27,235,0,0,15) OOSUB1220 
1790 S0UNDC2Z7,231,0,0,15)'GOSUBl228 

1808 S0UNDC223•230,0.0,15) GOSUB1220'GCSU81220'G0SüB1220'G0SUB1228 

1810 30UNDC223,0,0,0,15)'FQRFI*1TD133'NEXT 

1820 SOUND(223,223,0, 8 ,15)'FQRfl=170133 : NENT 

1930 S0UND(223,227,0,0,15)'F0RR=1TG133'NENT 

1940 SOUNDC223230,0,0,15)'FGRP=1T0133 : NENt 

1930 S0UND<2£3.-231,0,0,15)'FOR ft =l”0133'NENT 

1968 SOUND(223 234,0,0,13)'F0RR=1TC133'NENT 

1870 RETURN 

1880 REM CB'] STRRT 

1898 SOUNDC223'234,0,0,15)'C0SUB1220'OOSUB1226'GOSUB!226 = GOSUB1220 

196? S0UND<213*231,8,8,15)'GOSUB1230 

1910 S0UNDC213,234,0,0,13)'COSUBt230 

1926 SOUNDC213,235.0,6,15)'OOSUB1230 

1938 SOUND(223,234,0,6,15)'GOSUB1228'GOSUBl226 

1940 SOUND(223,234,8,15)'GOSUB1220 30SUB1220 

1930 SOUND(223,0,0.0,15)'GOSUB1230 

1960 S0UNDC223,231,0,6,13)'OOSUB1230 

1970 S0UNDC223,234 0 6,13)'GOSUBl230 

1980 S0UNDC8,0,0,0,15) 

1990 SOUNDC223,235,0,0,15)'GOSUBl226 GOSUB1220 
2606 SCUND<223,231.0,0,15)-GOSUBl220'G0SUB1228 
2010 S0UND(223,237'0,0,15)'GOSUBl220 GOSUB1220 
2020 S0UND(223,234,0,0,15)'GOSUB1220-GOSUBl220 
2030 S0UND<207,233,0,0,13)'GOSUB1220'GOSUBl220 
2940 SCUNDC207,231,0,0,13)'GOSUB1220 OOSUB1226 
2630 SOWDC207,237,0,0,15)'GOSUBl220 GOSUB1220 
2860 S0UNDC223,237,0,8,13);GOSUB1220 
2670 SOUND(223,234,0,0,13)'G0SUB1228 

2080 SOUNDC287,233,8,0,13)'GOSUB1220'GCSUBS220'GOSUBÍ220'G0SUB1226 
2090 SOUNDC207,234,0,8,13)'GOSUBl220 GOSUB1220 
2180 S0UNDC2Í9.231,0,0,13)'COSUPt220'00SUB1228 

2110 SOUNDC223,230,0,0,15)'OOSUP1220 : GOSUB1228'GOSUB1220:GOSUB1228 
2120 SOUNDC223,231.0,0,13) : G0SUP122e'G0SUB1228 
2130 SOUNDC223,234,0,0,13)'GOSUB1220'GOSUB1220 
2140 RETURN 

2130 SOUNDC23I,231,0,0,13) OOSUB 1220 'GOSUB1220 ; OOSUB1220'GOSUB1220:GOSUB1220 
UB 1220 
2160 RETURN 
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10 PRIMT"Ml ^2«3fc.4?r5lie:S7TT10'■ 0PEN1 > 4 
20 FORI*0TO7 

30 R*PEEK < 33400+1>■B=PEEK < 38403+1)■OPEEK <33400+1> 
40 B*PEEK(38400+1) ; E*PEEK(38400+I)■F“PEEK<38400+I> 

50 print#i>r; 

55 PRINT#1,CHR*<Í6>"10"B; 

80 PRINT#1/CHR$(16)"20"C; 

65 PRINTflLCHRfCiSVSQ"!); 

70 PRINf#l>CHRC<16)"40"E; 

75 PRINT#1,CHRC<16V'50"F 
80 NEXT 
90 CMDÍ 
100 LIST 

110 PRIHTUlíCLOSEl 
REflDV, 
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Tít*JJ<7)/n / ^ A @1'T" "c" UÍ4<7> KEY $■#■&[* 
RUN L í T a X"<7) KEY ZfôTZ COPY Tt 0 Ít## 10-480 £ 8000 
~ 9090 if > <>7°P ^'^AtííillífEyn Í7AT'to 
/CO 4flfC PRINTZSCtO.fêÃ £ GRAPHICS fcÜT í L/eCDT\ 16 K ffl 
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3 REM 176*160 GRRPHICS * CQPY VIC 1001 <8K,16K) 

3 REM POKE 648, 30 : RUNSTQP RESTORE 
7 REM POKE 44,35 RET:POKE 8960,8 RET INPIJT OR lORD 
10 DRTR R9,15,8D,03,90,R9,FC,9D,05,90,82,06,80.00,84,57 
15 ERTfi R9,10,85,38,98,91,5?,C3,D0,FB,E6,5B, C9,D0,F6.. 80 
20 DRTR 00,99,99,00,1E,C8,DO,F9,68,80,00,94,38,85,F?,4R 
23 DRT8 48,48,93,37,83,F8,48,49,48,49,FB,09,RR,89,00,18 
30 DRTR 69,16,CR,D0,Ffl, 18,65,57,83,59,R5, F3,29,0 F ,83,37 
35 DRTR 83,39,09,26,38,09,26,58,08,26,3G'0R.26,38,13,65 
40 DRTfl 57,30.02,E6,58,85,37,89,10,63,58,85,58,R3,F7,29 
45 DRTR 07,89,83,80,48,08,10, FC,28,60,83,03, B0.-0P , 20,29 
48 DRTR 20,11,37,91,37,84,39,83,FE,99,00>96,60,26 
30 DRTR 29,20,49,FF,31,37,91,5r,60,R3,F9,38,E3,F7,B0,04 
55 DRTR 49,FF.69,01,95,38,85,5C,66,5D,R9,01,85,3F,fi5, FR 
60 DRTR 38,E5,F8,BC,04,49, FF ,69,01,85,5B,66,59,13,65,58 
65 DRTR 90,02,E6,5F,85,5E,E6,3E,85,50,38,E5,5B, 33,50,03 
70 ERTfi 20,78,20,28,C6,3E,F0,1F,85,5D,B0,0 B ,30 04,C6,F3 
75 D8 T 8 90,02,E6,F8,fl5,3C,65,58,E8,50,E2,09,38,30,04,06 
80 DRTR F7,B0,D3,Ê6, e 7,80,Dl,C6,5F,E@,IffijÇ0,85,F8,43,99 
85 D8 r 9 00,83, FF ,85,FC,38,26, FF, 08,26,F r ,08,26, FF, 35,FE 
90 ERTfi 85, C E, 18,65, FF , 33, Fc, 99,08,83,3E, 83, F7,49,83,0-- 
95 PRTfl 85,5D,80,00,B!,FE • 09.85■ 3F,90,03,2-7, 7 9 20 E6, r 7 
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R5,57,C6,5D.. De,70, EG^E> 

E 6 , F$,.£0 

í55:F7 

f CS,5E,DO 

105 

DRTP 

DCT6S,"S5.-F8,60.-P5."F7.A5 tt 

53 >R 5 ■FS 

,35,5E 

,28 f ?H> 2 Í 

110 

DPTR 

E6iF7,C6,F9,D0F7,P5"3" 

?5,F7,R5 

5E,35 

,F 3 ,C 6 j f 3 

115 

DRTP 

CS, FR , DÕ ,■ £S f 60, R5, F?, 4g , 

A5,F3.4R 

jp -3" 

r»— ---rt 

■ ^ * .* >. r i 

120 

DPTR 

20 f ES t F7 .■ E 6 ^ p 7, E 6 .■ ^7, E 6 , 

PT., Ç 6 ,5" 

• i«jír ■ 

. Ki^i | r 3 ._l i — i 

125 

LPTR 

60.R5,F3,35,FC,P?,5='í35.- 

5E,^3.'4H 

■ 35,51' 

r 1-1 et 

• H T ■ i- K* . c-j 

130 

DR T R 

5C, R9 / 06 j 05 r E, R3 .< 0 ?. > 35 - 

FF,06jFF 

“■ 'EL 

it-, 

IT T* 

.« í. çj t . 1 ; .■ v ■ 

135 

Dfl T R 

^■0 } 02, t -6 í ^ F06 i " F i GE f - $ 

C 6 íFE,D 0 

cl “ jj’"- 

• .■ tí/. > s 

140 

DPTR 

57, F0,02 ■ E 6 -■ FF , 30,00*5, 

Ff, 9?., 53 

P5 r G. 

. £:**: , CTi." 

145 

DRTP 

^7, E 6 • 5D,■ C 6 ,5CE0 * I ^ ' 60 ■ 

Rr, i Fr j 05 j 

—^ ■‘n-i 

Jl ,■ £ L' 

“? Q -* 1 ÍT; ^ f 

■50 

DR T P 

57,30,0Ê,20,7R,20.E6,F"i 

R5.i F7 j CS 

■37 • r 0 

- “do _ - “t 

!55 

DRTR 

21,45- 5Ej 05 , F7,C6,F7 ,R5., 

r -,C3,F- 

r-j. c*Ti 

■^iT; ““-T 

160 

BRTR 

31,5 7■ DG j06i29,7 R, 20 ,4C, 

^ ^ r. 4 p,— 

Z.O j t!. j Rv 1 

Zr_ 05 

™ T ™ /■ ^ ^ 

165 

ERTP 

P5■F0,C?,R0,F0,0",20,23, 

20;7115" 

■ - 0,C8. 

-cT 

250 

PRIHT 

■ : POKE36' ~3 ,25 : GOTO230 

1 




260 IPfi<58TNENR=fi-48 : RETURN 
276 1 F8>37THEM8-9-55 : RS' ; JRN 
280 FORI=8132T08192+5£3 
290 RERDPí 8=830(91) 009116260 ; 9£=R 
300 R=RSC(RIGHTtíRt,1)>:G0SU526G 
310 POKEI,82*16*8 : NEXT GCTO580 
400 P0KE247,X : P0KE248,V : POKE£49-9 'C- E230, 

403 POKE249,8'FOKE250,B SY38343 : RETURN ■ REN LI NE 


SVS834 


Z. 


^A^ íi r -1 


PEN LI NE 


410 P0KE247, X : P0KE248, v P0KE249,8 : F3KE230, E ; 3VSS515' RE T '.Sf 5; SOX 
420 P0KE247, X : P0KE248, v F0KE249,8 ; SVSS547 : RtTURN RE!" *EMíEN 
430 PCKE247,X P0KE248»V C 0KE252,3 P0KE253.il SV89*42:Re T ’JRN;REl ‘ : ÜÔI • M=l£i 
440 P0KE247,X P0KE248,V 3 : t'S831.4 RETURN REM POINT 
450 81=0.26•1FRÍ41THENSI=0.33 

452 IFRÍ31THENSI=0.40 
433 IFR<21THENSI=0.43 

453 IFR<11 THENSI=0 .53 

438 XO=X ■VO*V:PQKE247,XO-R■P0KE243, VO 

460 F0ft>3.3T03,3STEPSI R=XO+1HTÍR*COS(I)) S=VO+!NTCr*sIN(I>*!,5) 

465 QOSUB403:NEXT:8=X0-R:B=VO ; GOSÜE40? RETURN 

470 R=X+L:E=V : GOSUB400:fl=X+L : B=V+L ; GO3UB405;REH 4LB0X 

473 R-X:B«V+L:COSUB403 : P=X : B=V■OOSUB403-RETORN 

477 9-X+L: B=V: OO8U8400: fi=X+L7£ B=V-l*0. 866 : G0S0B433 «=X : B»V - OO31B403: RETI, 

3L 

480 P0KE247,X : P0KE248,V ; SVS8646: RETURN :REM PR3NT 

490 R=X:B=v-E:GOSUB400:fl=X+3:B=V-E:GOSUB405'fl*X+3:B=V•GOSUB405■RETURN 

500 P0KE36879,2S : SVS8192 

503 FORI=7616T07647:RERDR■POKEI,R:NEXT 

505 DRT9 62,3,62,0,127,65,20,119,16,16,16,30,16,16,16,255-GOTC510 

508 DRTP 127,16,30,19,36,36,108,0,127,73,73,127,63 65,65,0 

310 P0KÊ25i,6:X=54:V»0■GOSUB440 

520 X*30 1 V=t : 1*1=29 : 3=24 : GOSUB430 X*66 3=25 : GO8UB430 

530 X=82-H=136 : 3=104 :GOSL'B430: X=90: S»106-OOSLIB430: X«98 'S-87 GOSÜB430 X=! 1 
GOSUB430 

540 X=50 : V=11■R*122 ; B=11:GOSUB400 

550 X=25:V*25■ 8=25;5=136‘GOSUB400:0=170:5=536 GOSTOS 

560 F0RV=36T011!S T EP23'X=25 : 8=145 1 COSUB420 NEXT 

57C M=128:V=32 F0RS=52T043STEP“1 : X=S‘GOSUB^GS v=v+£ 5 :nTX" 

580 F0RV-32T0107STEP25:*=8 : 6*48:GGSU5436 ; X=16 GCSUS4’0 NEXT 
582 V=132GOSUB430 

585 8=49 F0RX=34TO124S T EP11 : V=142 : GGSUB430 ?=S+: NEXT 
587 S=49 FORX=129T0157S T E C 14 • V=142: GO-SOB-íO NÇk- 
590 5=4g:c , 0RX=135 T 0‘63STEP14- , J = ;d2 GOSVÍ’ 1 '-':3=8-:-VÇX T 
593 H=29 X=6 V=!42:S=2£: 30Sl«S430:X*Í6 : S=£7 : :-;3''n43e" 

595 X=152 V=16 8=5 3=3 GO? ; . I B4!0 

600 X» 152 V=24: 8= 137 B=24: GO3LB40S: 8=157 3=01'700 . : B“'C3 
605 9=150 B=21 :OG3üE405'9=;.5O 3=04 30S ; J04'“ 

613 !"!= 103 : X=160" u = 12 -=1 307. ;T 7-3 v=£C • 5<’ 90 ‘ .'L?í* 

615 *"=136 F0RX=34Tr:-.223TE~ll V=152 3=117 MO-.O-EO—E ’ 

620 FQRX= 130T01533“EF• 3 v=í52:GÍSV7Í30 Nr/' 

625 F0RX=36 T Í 124STEFí I' V=i 24 : ft=3: RFS3B' 0 1%'H í0 ■ N3T 
630 F0RX=135T7I 
£ r 40 bv .■ ■ "Sc - 1 

65£i F 0RX-3,^ _ : :.27o T Er a 1 
€$& -D^:3?Tr/í23TE^l 
b?n 53-40,73^7,“. 

eg® G T HEN6S0 
£qg IFnt= ,, C'^MEM303G 
?m 3VS3133 PGKES&SíSíSj 
?0B 254,:?0.23- 

7iS 3PTfl 255.-170,170,253,255 255,^, ,t 

712 X-0 V“1G0 ^-50 E-3C 3CSl-B43I ; ; 

714 G-120 ; B=tG0' OC3 3 J?405- x-43' V*40 ' E*Ü9 

71 í ^”60 B s 48 GGo ! JB435 /=e"5 G ~Z : J7:*‘ZZ 

713 X=52 V=31 3D51B48Í? X=<5 =«.f 
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REnDE 


lí c 
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. ^ -N _ IJ 

' —I Rb . - 

£- 2 ■ t'c. 






1 í !■-, 1 f-.' 
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jRN: REM 


1 : S=76 
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72ft P0KE23! ‘2 X=140 '.=40‘R=!0 GGSUB^js 
722 P0KE251.6 K=136 V=153’a=Í3S 2*151 :G0S-J!^33 
724 fl=igg B=120'3G3 J JB43Ç *=175 E< 10 'G33-.T4S3 
726 X=S74 : V—á 1 i G03UE4S£:X=0 v=í53>=í3j:> 15" GOSuB^r 

728 K=29-V»i5rH=3 

73G f 0 RF= 0 TQ 120 STEPê POKEÍ.-Í 3;' J"jG -7":>G t 05CC 3 

^95 pnKSS.S G03UB75G ; KEXTF 

740 F-ÓKE3,0 y*!2S ■ 3=25 ■ 30ÔÜB^39 : FOR >070530 ' HEXT *WE9, 1 ' C??U?4?2 
743 PORE=0702002 H=4-l - : r -=r^E^76ü 

745 0070738 

750 X=P+8 : S=24 G0$UB433X*F 3=£5 3QS'J343£ RE^URN 

7 ^e PHKE3 .- 0: 'GR I“0 T Q133? : NEXT 

770 P0KÉ36879,25 = $VS8Í92 ‘PQKE25 i .* 0 

775 i =fift'cn?»07O:i5STE p 2 

780 V=< 31H<X/ 13) + 1 > *52 GOSU3470' NEX7 

785 X=10-V*10 OOSUB8Q00■V*Se : X-10'GOSJ5S0i0 

750 FOR 1*0703000 : NEX7 

800 P0KÊ36S79/25 GYS8192 P0KE251 --3 ■ L*5 : Y*105 : FCR->857O0S7EF~^ 

805 G0SUB477'V=V+3 : L=L+10 : NEXT 

810 X=0 : V=20 ■ GOSUSS000 : X=144 = GQSUE8810 

020 FOR>0703000 ; NEX7 

830 P0KÈ36873í23 : SVS8192 : PQKÊ251i4:FQRH*0TO65 T EP0#25 ^ 

860 X-e0+INT<38*COSÍH))-V^S0+INT(38*£IHÍH)*i*3> P=1JGOSUE4J0NEX, 

870 FOKÊC 6 - X=0 : v-0 : GOSUB8000: X* 144 : V= i 52 G0SUB8013 

880 FOR>0703000 : NEXT 

900 P0KE36879.' 25 : 3YS8192' P0KE251 .■ 6 

510 X*0^*é2:R*17!:B«82 GO5UB400 :X*0 = V-!3 R=0 S* 1 59' OOSUB40Ç 

92Ó FORX= 070171 V=tl«SIN<X/27))*70+15GOSUE440 

930 V*< l-COS(X/27»*70+13 GOSOB440:NEX7 

Q40 1"=132: V-24 : V=a: S=19 : OOSUB430 : X=3£'3=3 ‘ GGSUB43S 

Q50 40 • 3*14-008111430:X=55 'S=3S ■ GO31*43* : X*72 ; S=3' GOSUF^G 

%0 X-80 'S=15 : 0QSUÍ430 : X=88 S-19 G03UB430 = X-104' S*G ■ G0SUE43S 

970 X*112:3=21 GOSUB430:X=120:3=13 1 GQSUB430■K*12S- 3=22■GC3U?430 ^=136 -S=5-GOSUE4 

30 

980 S=32 : X=48 GG3UB430 X*64 : GO3UJ5430 ■ X=35 GOSvB430 

985 X*85 V=15 : GOSUB48õ 

990 x=30 :V =S3 GOSUS4S0 

995 FOR1=0703030 NEXT 

1^09 P0KE36879.25-SVS8192 p 0KE25l 1 

10 ig x*0.V*0 uGSÜB8000 : »144:V=152 GOSUBSB10 

1020 Xa8B:V»80 íí=23 : GO3UB450 

1030 FORH=0TO5.4953 T EF0.733 

1040 X=lN T C37#C0SíH>+38) 

i n=,R v =t wt<S7^ twí w)$ 1, 5*80> R= 14' 00953438 ' ; 

1060 «*87 = V »3 • GQ3ÜÊ4S0 ■ X=115 : V*20 ‘ GO$ : ÍB430 ■ X=!27‘ V =S? ?O?/>-30^i ' G0SUE4 

QÇj 

i g79 x=S8 V= í ! j ■ O"3UB480 ■ v*61 V=S9' GGSU3S4«9 »0*, v=ç0 3CS : JB433 X-61: v =20' G00UB48 
0 

1080 X-89 : V=46'GOSUB430 
1090 FGRI=0 t O32G3 : HEX t 
1100. PGKE36873..25 SVS3132 -3^7251 >0 
1110 X3S=v=153 GO3UES032 X-136 GO3UB8010 
1120 R=33 r CiRX=367Gl263 T E p G 
1130 V=<SIHCK/10) + 1)*29*5^3 OOS-^õO 
1140 FOR>0^03300 NEX7 
1230 SVS3!32-P0KE3S37S*23 : >23i 
1210 POKEC2 ' X= 88 ' v =79 1 3=1 E=-l OO3 : J r 1270 
1230 PGKECj 3 : X=SS'V=80 : r=1'E=I’G03UB1278 
1248 POKEO r Sí*e7'V«80 : D=~: í*l 303011273 
1250 PÜKEC,5 : X=87 v=79 : D=-l'E=-l' GOSUE 1270 
1260 POKE", 6 ’ ^ 1 44 : v= 0 : GO3UE3033 = X=3 ^=152' GGSUB 88 '7 CCTG5.290 
127P FÕRI=07G503 T EF2 H=3. >16/1 S£^I 

1280 R=59+20*CC3(4*y) P=X-t*P*CGSíH) P=V+E*R^SI- ^ 30SUB43C KEXT PE"URN 
1293 FOR>0703000 NEX7 
1295 GG T O770 

8000 11=128 : S=22 ■ GCSÜE430 X=»S' S=S GOSUE430 
8805 X=X+8: 3=3 : GOSUB430 ‘ X=X+8 ‘ 3=33: GOSÜB^ ' F*7'JÃV 
8010 w=13S : 3=l04: G0SUB432: s:*XV8'3= N 06 G73/P430 : X=X+0 : S=3 f m Q03US430 


:v 


8023 K=X+3'S=75 OO3US430 RETIRA 

9000 0PE43 í 3 : L=e H=S 

9010 PQKE243, H :PQKE247, 0 SVS8375 

9020 PRINT»3,CHRt<a)CHR*<27>CHRtaS>CHR*<0JCHR*<60) 

P030 FCRP=S4397T024572 

9040 PWHTÍ3íCHRt(P£EK(P»CHRt< 9 SS’«P))i 

9050 PRIHT#3iCHRÍÍí25J 

9060 L=L+1:IPL-22THE*««M*€ 1 60T03619 

9070 IPL=20THEH909G 

9080 H=H+7-G07O90í0 

9090 PRINTRS, CHRi< 15) ■ *»R!H7#3 : GLOSES 0G'06S? 
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/03 251 1523 
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A A íj A 
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170 SSESÍ1ÈK3 1 
#>7rAX7 í-; 
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